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

【问题标题】：change color of datatable filter dropdown box更改数据表过滤器下拉框的颜色
【发布时间】：2021-10-02 19:54:40
【问题描述】：

你好。

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

示例代码：

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)

谢谢

【问题讨论】：

标签： css r shiny datatable

【解决方案1】：

你只需要在ui函数上修改合适的CSS：

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

更新

正如 cmets 中所解释的，您可以在下一张图片中看到（打开它以查看大图）CSS 在哪里修改以在您想要的地方获得深红色（在左上方窗口的右栏中是 element.style我在下面的评论所指的）。我无法解决的问题是如何修改该标签（左侧的阴影）` 没有类或 id，使用 CSS 或 Shiny。

【讨论】：

你好 iago。出于某种原因，我的原始评论被删除了，但我指的是包含滑块和数字的白框的颜色。我将如何改变它？谢谢。
我看过评论。从那时起，我试图得到一个没有成功的答案。事实上，我已经确定了指定背景颜色 = 白色的 html 代码部分，但我无法在闪亮的 CSS 上对其进行修改。
@niceguy 最后我找不到解决方案。它在 div 标签中被修改为“element.style，表示直接分配给元素的样式，例如通过样式标签 ()”。 (groups.google.com/g/firebug/c/yncABF66Eck)。也就是说，没有类或 id 可以修改该标签。我尝试的所有方法都不起作用。我不确定是否可以做任何事情。我用带有细节的图像更新答案。