Bootstrap components variables — bs_vars

Those variables can be used to customize components padding and borders in Bootstrap and Bootswatch themes.

bs_vars_component(
  padding_base_vertical = NULL,
  padding_base_horizontal = NULL,
  padding_large_vertical = NULL,
  padding_large_horizontal = NULL,
  padding_small_vertical = NULL,
  padding_small_horizontal = NULL,
  padding_xs_vertical = NULL,
  padding_xs_horizontal = NULL,
  line_height_large = NULL,
  line_height_small = NULL,
  border_radius_base = NULL,
  border_radius_large = NULL,
  border_radius_small = NULL,
  component_active_color = NULL,
  component_active_bg = NULL,
  caret_width_base = NULL,
  caret_width_large = NULL
)

Arguments

padding_base_vertical: Vertical base padding.
padding_base_horizontal: Horizontal base padding.
padding_large_vertical: Vertical large padding.
padding_large_horizontal: Horizontal large padding.
padding_small_vertical: Vertical small padding.
padding_small_horizontal: Horizontal small padding.
padding_xs_vertical: Vertical extra small padding.
padding_xs_horizontal: Horizontal extra small padding.
line_height_large: Line height for large elements.
line_height_small: Line height for small elements.
border_radius_base: Base border radius.
border_radius_large: Large border radius.
border_radius_small: Small border radius.
component_active_color: Color for active components.
component_active_bg: Background color for active components.
caret_width_base: Width for caret.
caret_width_large: Widget for large caret.

Value

a list that can be used in create_theme.

Examples

bs_vars_component(
  padding_base_vertical = "5px",
  padding_base_horizontal = "20px",
  border_radius_base = 0,
  component_active_bg = "#0B610B"
)
#> $`padding-base-vertical`
#> [1] "5px"
#> 
#> $`padding-base-horizontal`
#> [1] "20px"
#> 
#> $`border-radius-base`
#> [1] 0
#> 
#> $`component-active-bg`
#> [1] "#0B610B"
#> 
#> 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_component(
          padding_base_vertical = "5px",
          padding_base_horizontal = "20px",
          border_radius_base = 0,
          component_active_bg = "#0B610B"
        ),
        output_file = NULL
      )
    ),
    tags$br(),
    actionButton("id", "A button"),
    wellPanel("A wellPanel"),
    panel(
      heading = "A panel",
      status = "primary",
      "Content"
    ),
    navlistPanel(
      "navlistPanel",
      tabPanel("First"),
      tabPanel("Second"),
      tabPanel("Third")
    )
  )

  server <- function(input, output, session) {

  }

  shinyApp(ui, server)
}