如何修改闪亮主题的主题？

Question

如何修改shinythemes的主题？例如，假设我想将darkly 的背景更改为黑色。

library(shiny)
library(shinythemes)

ui <- fluidPage(
  theme = shinytheme("darkly"),
  "How to change this black?")

server <- function(input, output) {}

shinyApp(ui, server)

我想一种解决方案是将darkly 的CSS 与修改后的黑色复制到我的应用程序的www 文件夹中，然后使用theme = "darkly_modified_black.css"。我缺少更简单的解决方案吗？

Answer 1

如果您只想更改背景颜色，可以包含自己的 css 参数。 但是是的，你也可以复制darkly的css，修改它，将它包含在www文件夹中，然后从那里加载。

library(shiny)
library(shinythemes)

css <- HTML(" body {
    background-color: #000000;
}")

ui <- fluidPage(
  tags$head(tags$style(css)),
  theme = shinytheme("darkly"),
  "How to change this black?")

server <- function(input, output) {}

shinyApp(ui, server)

如果您想要一个单独的 .css 文件，您可以使用 includeCSS 和文件路径。