更改数据表过滤器下拉框的颜色

Question

我想更改数字过滤器显示的下拉框的颜色。

示例代码：

library(DT)
library(shiny)

ui <- basicPage(
  h2("The mtcars data"),
  DT::dataTableOutput("mytable")
)

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

shinyApp(ui, server)

Answer 1

您只需在

ui

功能上修改合适的CSS即可：

ui <- basicPage(
    h2("The mtcars data"),
    DT::dataTableOutput("mytable"),
    tags$style(type = "text/css",
               ".noUi-connect {background: red;}")
)

更新

正如评论中所解释的，您可以在下一张图片中看到（打开它可以看到更大的）CSS 被修改为在您想要的位置获得深红色（在上面左侧窗口的右栏中是

element.style

）我下面的评论是指）。我无法解决的问题是如何在没有类或 id 的情况下使用 CSS 或 Shiny 修改该标签（左侧的阴影标签）。