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" )#> $`state-success-text` #> [1] "#FFF" #> #> $`state-success-bg` #> [1] "#238B45" #> #> $`state-success-border` #> [1] "#00441B" #> #> attr(,"class") #> [1] "fresh_sass_vars" "bootstrap_vars" "list"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) }