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

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)

谢谢

标签： cssrshinydatatable

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。