着色checkboxGroupInputの選択肢私の光沢のあるUIで

Question

は私が

ui <- checkboxGroupInput("my_cbgi", "Choose Something", c("A", "B", "C", "D")) 

を持っており、選択肢（テキスト）AとBが赤く着色されているように、私はそれをしたいと思いますが、CとDはそうではありません。私はHTMLを試みましたが、UIでは "attribs"や "children"のような奇妙なボックスが現れました。予め

Answer 1

で

おかげshiny_1.0.1ので、checkboxGroupInputこの例をチェックし、ユーザに表示するために、任意のUIを通過させるためのchoiceNamesとchoiceValues引数を有する：

library("shiny") 

ui <- fluidPage(
    checkboxGroupInput(
    inputId = "my_cbgi", 
    label = "Choose Something", 
    choiceNames = list(
     tags$span("A", style = "color: red;"), 
     tags$span("B", style = "color: red;"), 
     tags$span("C", style = "color: blue;"), 
     tags$span("D", style = "font-weight: bold;") 
    ), 
    choiceValues = c("A", "B", "C", "D") 
) 
) 

server <- function(input, output) { 

} 

shinyApp(ui = ui, server = server)