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 )
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. |
a list
that can be used in create_theme
.
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) }