Use a CSS theme in Shiny application
use_theme(theme)
theme | Either a path to CSS file (if in |
---|
HTML tags to be included in a UI definition.
if (interactive()) { library(shiny) library(fresh) ui <- fluidPage( use_theme(create_theme( theme = "default", bs_vars_global( body_bg = "#000", text_color = "#FFF" ), bs_vars_wells( bg = "#2E2E2E" ) )), tags$h1("Inversed color theme"), sidebarLayout( sidebarPanel( "This is the sidebar panel" ), mainPanel( tags$h1("First level title"), tags$h2("Second level title"), tags$h3("Third level title"), tags$h4("Fourth level title"), tags$h5("Fifth level title"), tags$h6("Sixth level title") ) ) ) server <- function(input, output, session) { } shinyApp(ui, server) }