使用shinyWidgets更改复选框的颜色

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  titlePanel("更改复选框的颜色"),
  sidebarLayout(
    sidebarPanel(
      checkboxGroupInput(
        inputId = "colors",
        label = "选择颜色",
        choices = c("红色", "绿色", "蓝色"),
        selected = NULL,
        choiceNames = c(
          tags$span(style = "color:red", "红色"),
          tags$span(style = "color:green", "绿色"),
          tags$span(style = "color:blue", "蓝色")
        ),
        choiceValues = c("red", "green", "blue"),
        inline = TRUE,
        choiceColors = c("red", "green", "blue")
      )
    ),
    mainPanel(
      textOutput("selectedColors")
    )
  )
)

server <- function(input, output) {
  output$selectedColors <- renderText({
    paste("你选择的颜色是：", input$colors)
  })
}

shinyApp(ui = ui, server = server)