bs_vars_component: Bootstrap components variables

In fresh: Create Custom 'Bootstrap' Themes to Use in 'Shiny'

Description

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

Usage

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

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

fresh documentation built on July 2, 2020, 1:59 a.m.