Question

我想将一个黑暗主题应用于闪亮的应用程序：

    library(shinythemes)

    shinyUI(fluidPage(
      theme = shinytheme("cyborg"),
     ...)

但DT数据表不遵循主题颜色。

我怎样才能让它变暗？

非常感谢。

Answer 1

除了发布的代码外，还必须在datatable函数中添加以下参数。以下是完全可复制的代码。

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

ui <- fluidPage(
  theme = shinytheme("cyborg"),
  mainPanel(
    DTOutput("table")
  )
)

server <- function(input, output){
    output$table <- renderDT({
      datatable(iris,
                style = "bootstrap" # <--------- This is the crucial part
      )
    })
}

# Create Shiny app ----
shinyApp(ui, server)

闪亮的数据表如何改变主题

1 个答案: