如何修改R Shiny中DT数据表格数值筛选器的下拉框颜色

你可以通过添加自定义CSS样式覆盖DT默认的筛选控件样式来实现需求，具体可直接参考以下修改后的代码：

library(DT)
library(shiny)

ui <- basicPage(
  # 加入自定义CSS修改筛选控件颜色
  tags$head(
    tags$style(HTML("
    /* 修改滑块填充区域的颜色，此处以红色为例，可替换为你需要的任意色值 */
    .noUi-connect {
      background: #ff0000 !important;
    }
    /* 可选：修改滑块两端手柄的颜色 */
    .noUi-handle {
      background: #0000ff !important;
      border-color: #0000ff !important;
    }
    "))
  ),
  h2("The mtcars data"),
  DT::dataTableOutput("mytable")
)

server <- function(input, output) {
  output$mytable = DT::renderDataTable({
    DT::datatable(mtcars,filter="top")
  })
}

shinyApp(ui, server)

• 代码中的色值可自行替换，支持十六进制色值、rgb/rgba色值、合法的颜色名称
• 代码里的!important是为了强制覆盖DT自带的默认样式，避免优先级不够导致样式不生效
• 如果需要修改筛选控件其他部分的样式，可以通过浏览器F12开发者工具定位对应元素的CSS选择器，按照上述格式添加样式规则即可

内容的提问来源于stack exchange，提问作者niceguy