如何更改闪亮的应用程序数据表输出字体颜色和辅助表元素颜色？

我正在使用深色主题（闪亮主题中的石板）创建一个闪亮的应用程序。但是当我应用该主题时，我的 renderDataTable 输出存在两个问题：

1. 应用程序背景太暗，看不到表格外的元素（显示 XX 条目、底部页码等）
2. 表中的文字太浅，难以阅读。

对于问题#2，我尝试了 renderDataTable 领域中的选项，例如formatStyle()，以及 css 选项，例如list(tags$head(tags$style("shipment.table span {color: #333333 ; background: #999999;}")))但我对他们没有任何运气。我对闪亮、DT 和 css 很陌生，这可能与它有关...我尝试过的示例在下面的代码中注释掉了。

对于问题#1，我完全陷入困境。我不知道那些外部到表的元素叫什么，所以我没有运气找到可以尝试的东西！

library(shiny)
library(shinythemes)
library(DT)

d=as.data.frame(cbind(1:100,201:300))

ui<-fluidPage(
    theme = shinytheme("slate"),

    mainPanel(
        DT::dataTableOutput('shipment.table')
        #list(tags$head(tags$style("shipment.table span {color: #333333 ; background: #999999;}")))   
        #tags$head(tags$style("#shipment.table table {color: red;}"))
  )  
)


server<-function(input, output,session) {

output$shipment.table <- renderDataTable(d,filter = 'bottom',
       options = list(lengthMenu = list(c(10,20,50,100,-1), c('10','20','50','100','All')),
       pageLength = 10,autoWidth = TRUE),rownames=F) #%>% formatStyle(1,color="black")
}


shinyApp(ui=ui,server=server)

如果运行该应用程序，您将看到左上角带有“10”的下拉框，但该框前后应该有文本，因此显示“显示 10 个条目”。右下角还有一个 1，但应该还有其他几个页面可见（它们是，只是深色背景上的深色文本）。同样，表格文本在浅灰色/白色背景上呈浅灰色，难以阅读。谢谢你的帮助！

amrrs 有一个很好的答案，但它仍然没有解决您更改页码颜色的其他问题..您可以通过添加来做到这一点

library(shiny)
library(shinythemes)
library(DT)

d=as.data.frame(cbind(1:100,201:300))

ui<-fluidPage(
  theme = shinytheme("slate"),



  mainPanel(

    ### add your style inline css values here

    ### added a line of code here too `.dataTables_wrapper .dataTables_paginate .paginate_button.current:hover `###
    tags$style(HTML("
                    .dataTables_wrapper .dataTables_length, .dataTables_wrapper .dataTables_filter, .dataTables_wrapper .dataTables_info, .dataTables_wrapper .dataTables_processing, .dataTables_wrapper .dataTables_paginate, .dataTables_wrapper .dataTables_paginate .paginate_button.current:hover {
                    color: #ffffff;
                    }
### ADD THIS HERE ###
                    .dataTables_wrapper .dataTables_paginate .paginate_button{box-sizing:border-box;display:inline-block;min-width:1.5em;padding:0.5em 1em;margin-left:2px;text-align:center;text-decoration:none !important;cursor:pointer;*cursor:hand;color:#ffffff !important;border:1px solid transparent;border-radius:2px}

###To change text and background color of the `Select` box ###
                    .dataTables_length select {
                           color: #0E334A;
                           background-color: #0E334A
                           }

###To change text and background color of the `Search` box ###
                    .dataTables_filter input {
                            color: #0E334A;
                            background-color: #0E334A
                           }

                    thead {
                    color: #ffffff;
                    }

                     tbody {
                    color: #000000;
                    }

                   "


                    ))
  ),
    DT::dataTableOutput('shipment.table')
    #list(tags$head(tags$style("shipment.table span {color: #333333 ; background: #999999;}")))   
    #tags$head(tags$style("#shipment.table table {color: red;}"))
  )  



server<-function(input, output,session) {

  output$shipment.table <- renderDataTable(d,filter = 'bottom',
                                           options = list(lengthMenu = list(c(10,20,50,100,-1), c('10','20','50','100','All')),
                                                          pageLength = 10,autoWidth = TRUE),rownames=F) #%>% formatStyle(1,color="black")
}


shinyApp(ui=ui,server=server)