Bootstrap panel variables
Those variables can be used to customize
panel (e.g. shinyWidgets::panel
in Bootstrap and Bootswatch themes.
bs_vars_panel( bg = NULL, body_padding = NULL, heading_padding = NULL, footer_padding = NULL, border_radius = NULL, inner_border = NULL, footer_bg = NULL, default_text = NULL, default_border = NULL, default_heading_bg = NULL, primary_text = NULL, primary_border = NULL, primary_heading_bg = NULL, success_text = NULL, success_border = NULL, success_heading_bg = NULL, info_text = NULL, info_border = NULL, info_heading_bg = NULL, warning_text = NULL, warning_border = NULL, warning_heading_bg = NULL, danger_text = NULL, danger_border = NULL, danger_heading_bg = NULL )
bg |
Background color. |
body_padding |
Panel body padding. |
heading_padding |
Panel heading padding. |
footer_padding |
Panel footer padding. |
border_radius |
Variable for setting rounded corners on panel. |
inner_border |
Border color for inner elements in panel. |
footer_bg |
Panel footer background color. |
default_text |
Default color for text. |
default_border |
Default border color. |
default_heading_bg |
Default background color for panel heading. |
primary_text |
Text color for primary status. |
primary_border |
Border color for primary status. |
primary_heading_bg |
Heading background color for primary status. |
success_text |
Text color for success status. |
success_border |
Border color for success status. |
success_heading_bg |
Heading background color for success status. |
info_text |
Text color for info status. |
info_border |
Border color for info status. |
info_heading_bg |
Heading background color for info status. |
warning_text |
Text color for warning status. |
warning_border |
Border color for warning status. |
warning_heading_bg |
Heading background color for warning status. |
danger_text |
Text color for danger status. |
danger_border |
Border color for danger status. |
danger_heading_bg |
Heading background color for danger status. |
a list
that can be used in create_theme
.
bs_vars_panel( border_radius = "15px", default_text = "#FFF", default_heading_bg = "#3f2d54", default_border = "#3f2d54", primary_heading_bg = "#1B9E77", primary_border = "#1B9E77", success_heading_bg = "#D95F02", success_border = "#D95F02", success_text = "#FFF", danger_heading_bg = "#7570B3", danger_border = "#7570B3", danger_text = "#FFF" ) if (interactive()) { library(shiny) library(shinyWidgets) ui <- fluidPage( use_theme( create_theme( theme = "default", bs_vars_panel( border_radius = "15px", default_text = "#FFF", default_heading_bg = "#3f2d54", default_border = "#3f2d54", primary_heading_bg = "#1B9E77", primary_border = "#1B9E77", success_heading_bg = "#D95F02", success_border = "#D95F02", success_text = "#FFF", danger_heading_bg = "#7570B3", danger_border = "#7570B3", danger_text = "#FFF" ), output_file = NULL ) ), tags$h1("Custom panels"), fluidRow( column( width = 3, panel( heading = "Default panel", "Some content" ) ), column( width = 3, panel( heading = "Primary panel", status = "primary", "Some content" ) ), column( width = 3, panel( heading = "Success panel", status = "success", "Some content" ) ), column( width = 3, panel( heading = "Danger panel", status = "danger", "Some content" ) ) ) ) server <- function(input, output, session) { } shinyApp(ui, server) }
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.