带CSS标签的风格闪亮变量

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" 
    ) 
    }) 
}