Description Usage Arguments Value Examples
View source: R/vars-bootstrap.R
Those variables can be used to customize components padding and borders in Bootstrap and Bootswatch themes.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | 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
.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 | 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)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.