use_theme {fresh}

Use a CSS theme in Shiny application

Description

Use a CSS theme in Shiny application

Usage

use_theme(theme)

Arguments

theme

Either a path to CSS file (if in ⁠www/⁠ folder, do not include ⁠www/⁠ in path), or a theme generated with create_theme() and argument output_file = NULL or bs4Dash_theme().

Value

HTML tags to be included in a UI definition.

Examples

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)
}