带有闪亮主题机器人的闪亮数据表

Question

试图在闪亮的应用程序中使用深色主题来处理数据表 (DT) 包。我已经尝试 shinytheme("cyborg") 并且还从 Bootswatch 下载了 cyborg CSS sheet，（用于调用数据表，style="bootstrap"）但是当我使用时它似乎不起作用闪亮的主题。我需要为应用程序的其余部分使用 shinytheme，因为 css 取消了所有的绘图和间距等。是否有一个黑暗的 CSS 我可以用来代替 shinythemes使用 plotly 和数据表？

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

ui<-  fluidPage(theme = shinytheme("cyborg"), 
            fluidRow(column(7, DTOutput("showdata")))
  )


server<-function(input, output) {
 output$showdata<- DT::renderDT({
   datatable(iris, rownames=F, filter="top", extensions = "Scroller", width = "100%", style="bootstrap",
             options = list(deferRender = TRUE, scrollY = 300,scrollX=FALSE, scroller = TRUE, dom = 'tp'),
             selection ='single' ) %>% 
     formatStyle(columns=colnames(iris),
      backgroundColor = '#282828', color = "white")
 })
}

shinyApp(ui=ui, server=server)

dark table screenshot 请注意，主要问题是过滤器文本没有出现（可能是白色的因为 shinytheme）

Answer 1

如果将字体颜色设置为黑色，则可以使文本可见。只需在 header 中包含一些 CSS，例如：div.dataTables_scrollHead span {color: black;}

示例UI：

ui <- fluidPage(theme = shinytheme("cyborg"),
                tags$head(tags$style("div.dataTables_scrollHead span {color: black;}")),
                fluidRow(column(7, DTOutput("showdata")))
)

带有闪亮主题机器人的闪亮数据表

DataTable in Shiny with shinytheme cyborg

css

r

shiny

dt

shinythemes

示例UI：

输出：