如何修改shinythemes的主题？

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。