css - 更改 Shiny 的下拉颜色

我试图在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)

最佳答案

通过反复试验，我发现添加'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)

关于css - 更改 Shiny 的下拉颜色，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/51928330/