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 )
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 . |
a list
that can be used in create_theme
.
# 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) }