Как изменить темы из блестящих тем?

Question

Как изменить темы shinythemes?Например, давайте предположим, что я хочу изменить черный фон darkly.

library(shiny)
library(shinythemes)

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

server <- function(input, output) {}

shinyApp(ui, server)

Я думаю, что одним из решений было бы скопировать CSS darkly с измененным черным в папку www моего приложения, а затем использовать theme = "darkly_modified_black.css".Есть ли более простое решение, которого мне не хватает?

Answer 1

Вы можете включить свои собственные css-аргументы, если вы просто хотите изменить цвет фона.Но да, вы также можете скопировать css of darkly, изменить его, включить в папку 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 с путем к файлу.