Bootstrap panel variables — bs_vars

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
)

Arguments

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.

Value

a list that can be used in create_theme.

Examples

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"
)
#> $`panel-border-radius`
#> [1] "15px"
#> 
#> $`panel-default-text`
#> [1] "#FFF"
#> 
#> $`panel-default-border`
#> [1] "#3f2d54"
#> 
#> $`panel-default-heading-bg`
#> [1] "#3f2d54"
#> 
#> $`panel-primary-border`
#> [1] "#1B9E77"
#> 
#> $`panel-primary-heading-bg`
#> [1] "#1B9E77"
#> 
#> $`panel-success-text`
#> [1] "#FFF"
#> 
#> $`panel-success-border`
#> [1] "#D95F02"
#> 
#> $`panel-success-heading-bg`
#> [1] "#D95F02"
#> 
#> $`panel-danger-text`
#> [1] "#FFF"
#> 
#> $`panel-danger-border`
#> [1] "#7570B3"
#> 
#> $`panel-danger-heading-bg`
#> [1] "#7570B3"
#> 
#> attr(,"class")
#> [1] "fresh_sass_vars" "bootstrap_vars"  "list"           

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)
}