bs_vars_dropdown {fresh} | R Documentation |
Bootstrap dropdown variables
Description
Those variables can be used to customize
dropdowns (e.g. shinyWidgets::dropdownButton
in Bootstrap and Bootswatch themes.
Usage
bs_vars_dropdown(
bg = NULL,
border = NULL,
fallback_border = NULL,
divider_bg = NULL,
link_color = NULL,
link_hover_color = NULL,
link_hover_bg = NULL,
link_active_color = NULL,
link_active_bg = NULL,
link_disabled_color = NULL,
header_color = NULL
)
Arguments
bg |
Background color for the dropdown menu. |
border |
Dropdown menu border-color. |
fallback_border |
Dropdown menu border-color (for IE8). |
divider_bg |
Divider color for between dropdown items. |
link_color |
Dropdown link text color. |
link_hover_color |
Hover color for dropdown links. |
link_hover_bg |
Hover background for dropdown links. |
link_active_color |
Active dropdown menu item text color. |
link_active_bg |
Active dropdown menu item background color. |
link_disabled_color |
Disabled dropdown menu item background color. |
header_color |
Text color for headers within dropdown menus. |
Value
a list
that can be used in create_theme
.
Examples
bs_vars_dropdown(
bg = "#FAFAFA",
border = "firebrick"
)
if (interactive()) {
library(shiny)
library(shinyWidgets)
ui <- fluidPage(
use_theme(
create_theme(
theme = "default",
bs_vars_dropdown(
bg = "#FAFAFA",
border = "firebrick"
),
output_file = NULL
)
),
tags$h1("Custom dropdowns"),
dropdownButton(
inputId = "mydropdown",
label = "Controls",
icon = icon("sliders"),
status = "primary",
circle = FALSE,
sliderInput(
inputId = "n",
label = "Number of observations",
min = 10, max = 100, value = 30
),
prettyToggle(
inputId = "na",
label_on = "NAs keeped",
label_off = "NAs removed",
icon_on = icon("check"),
icon_off = icon("remove")
)
)
)
server <- function(input, output, session) {
}
shinyApp(ui, server)
}
[Package fresh version 0.2.0 Index]