css - 改变下拉菜单的颜色为 Shiny

Question

我试图更改 Shinydashboard 中 selectinput 下拉菜单的颜色，但无法更改。这是我正在尝试做的一个简化示例

library(shiny)

ui <- fluidPage(
  tags$style(
    HTML(
      '#FacilityID{ background-color: red;
                  }'  
        )
            ),
selectInput("FacilityID","Enter Facility ID",c("test1","test2")),
               )

server <- function(input, output, session) {

}

shinyApp(ui, server)

Answer 1

通过一些试验和错误，我发现添加 'selectize=FALSE' 可以实现此目的。但我不确定为什么需要它。

library(shiny)

ui <- fluidPage(
  tags$style("#FacilityID {background-color:blue;}"),
  selectInput("FacilityID","Enter Facility ID",c("test1","test2"), selectize = FALSE)
  )

server <- function(input, output, session) {

}

shinyApp(ui, server)