Bootstrap states variables
Those variables can be used to customize states colors (used for alerts or panels) in Bootstrap and Bootswatch themes.
bs_vars_state( success_text = NULL, success_bg = NULL, success_border = NULL, info_text = NULL, info_bg = NULL, info_border = NULL, warning_text = NULL, warning_bg = NULL, warning_border = NULL, danger_text = NULL, danger_bg = NULL, danger_border = NULL )
success_text |
Success text color. |
success_bg |
Success background color. |
success_border |
Success border color. |
info_text |
Info text color. |
info_bg |
Info background color. |
info_border |
Info border color. |
warning_text |
Warning text color. |
warning_bg |
Warning background color. |
warning_border |
Warning border color. |
danger_text |
Danger text color. |
danger_bg |
Danger background color. |
danger_border |
Danger border color. |
a list
that can be used in create_theme
.
See default parameters for Bootstrap: https://getbootstrap.com/docs/3.4/customize/.
# Panels & alerts colors bs_vars_state( success_text = "#FFF", success_bg = "#238B45", success_border = "#00441B" ) if (interactive()) { library(shiny) library(shinyWidgets) library(fresh) ui <- fluidPage( use_theme(create_theme( theme = "default", bs_vars_state( success_text = "#FFF", success_bg = "#238B45", success_border = "#00441B" ) )), tags$h1("State variables"), fluidRow( column( width = 6, tags$div( class = "alert alert-success", tags$b("Alert!"), "this is an alert !" ) ), column( width = 6, panel( status = "success", "This is a panel" ) ) ) ) server <- function(input, output, session) { } shinyApp(ui, server) }
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.