着色checkboxGroupInput选择

Question

在我的Shiny UI中，我有

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具有choiceNames和choiceValues参数用于传递任意UI以显示给用户，因此请检查以下示例：

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)