在Shiny R中更改selectInput条目的颜色

library(shiny)

ui <- fluidPage(
  tags$head(
    tags$style(HTML("
      .selectize-input > .option {
        color: blue; /* 更改所有选项的颜色 */
      }
      .selectize-input > .option.selected {
        color: green; /* 更改选中选项的颜色 */
      }
    "))
  ),
  titlePanel("Change SelectInput Color Example"),
  sidebarLayout(
    sidebarPanel(
      selectInput("selectColor", "Choose a color:",
                  choices = c("Red", "Blue", "Green", "Yellow"))
    ),
    mainPanel(
      textOutput("selectedColor")
    )
  )
)

server <- function(input, output) {
  output$selectedColor <- renderText({
    paste("You have selected:", input$selectColor)
  })
}

shinyApp(ui = ui, server = server)