Question

如何使用自定义css为闪亮的应用设置变量？

我正在学习初学者的教程，我希望在此代码中强调一个变量：

library(shiny)

shinyServer(function(input, output){
    output$text1 <- renderText({
        paste("you have selected ",  input$var, " from the dropdown selector")
    })

    output$text2 <- renderText({
        paste("You have selected the range", input$range[1], 'to', input$range[2])
    })


})

我想强调input$var，我试过em(input$var)无济于事。

有人知道这个伎俩吗？

Answer 1

这样的东西会起作用（不是经过测试的代码，但这是正确的想法）

ui <- fluidPage(
    "you have selected",
    em(textOutput("text1")),
    "from the dropdown selector"
)

server <- function(input, output) {
  output$text1 <- renderText({ input$var })
}

或者，如果你真的想在服务器端进行所有渲染，那么你可以使用uiOutput + renderUI而不是文字

ui <- fluidPage(
    uiOutput("text1")
)

server <- function(input, output) {
  output$text1 <- renderUI({
    tagList(
      "you have selected",
      em(input$var),
      "from the dropdown selector"
    )
  })
}

风格闪亮变量与css标签

1 个答案: