bs4Dash main colors

bs4dash_color(
  blue = NULL,
  lightblue = NULL,
  navy = NULL,
  cyan = NULL,
  teal = NULL,
  olive = NULL,
  green = NULL,
  lime = NULL,
  orange = NULL,
  yellow = NULL,
  fuchsia = NULL,
  purple = NULL,
  maroon = NULL,
  red = NULL,
  black = NULL,
  gray_x_light = NULL,
  gray_600 = NULL,
  gray_800 = NULL,
  gray_900 = NULL,
  white = NULL
)

Arguments

blue: Default: #007bff . This color is used for primary status.
lightblue: Default: #3c8dbc .
navy: Default: #001f3f .
cyan: Default: #17a2b8 . This color is used for info status.
teal: Default: #39cccc .
olive: Default: #3d9970 .
green: Default: #28a745 . This color is used for success status.
lime: Default: #01ff70 .
orange: Default: #ff851b .
yellow: Default: #ffc107 . This color is used for warning status.
fuchsia: Default: #f012be .
purple: Default: #605ca8 .
maroon: Default: #d81b60 .
red: Default: #dc3545 . This color is used for danger status.
black: Default: #111 .
gray_x_light: Default: #d2d6de .
gray_600: Default: #6c757d . This color is used for secondary status.
gray_800: Default: #343a40 . Color for dark skin.
gray_900: Default: #212529 . Color for text in body.
white: Default: #ffffff .

Value

a list that can be used in create_theme.

Examples


# Change colors used in bs4Dash
bs4dash_color(
  blue = "#F7FE2E",
  lightblue = "#01DF3A"
)
#> $blue
#> [1] "#F7FE2E"
#> 
#> $lightblue
#> [1] "#01DF3A"
#> 
#> attr(,"class")
#> [1] "fresh_sass_vars" "bs4dash_vars"    "list"           

if (interactive()) {

  library(shiny)
  library(bs4Dash)

  ui <- bs4DashPage(
    title = "bs4Dash Custom Colors",
    # sidebar_collapsed = FALSE,
    navbar = bs4DashNavbar(),
    sidebar = bs4DashSidebar(
      title = "bs4Dash Custom Colors",
      skin = "light",
      bs4SidebarMenu(
        bs4SidebarMenuItem(
          tabName = "tab1",
          text = "UI components"
        )
      )
    ),
    body = bs4DashBody(

      use_theme(create_theme(
        bs4dash_color(
          blue = "#F7FE2E",
          navy = "#01DF3A"
        )
      )),

      bs4TabItems(
        bs4TabItem(
          tabName = "tab1",
          tags$h2("UI components", class = "bg-navy"),
          tags$h4("bs4ValueBox"),
          fluidRow(
            bs4ValueBox(
              value = 150,
              subtitle = "ValueBox with primary status",
              status = "primary",
              icon = "shopping-cart",
              href = "#",
              width = 4
            )
          ),
          tags$h4("bs4Card"),
          fluidRow(
            bs4Card(
              title = "Card with primary status",
              closable = FALSE,
              width = 6,
              solidHeader = TRUE,
              status = "primary",
              collapsible = TRUE,
              p("Box Content")
            )
          )
        )
      )
    )
  )

  server <- function(input, output) {

  }

  shinyApp(ui, server)

}