html - 为 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)