Bootstrap dropdown variables

Those variables can be used to customize dropdowns (e.g. shinyWidgets::dropdownButton in Bootstrap and Bootswatch themes.

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"
)
#> $`dropdown-bg`
#> [1] "#FAFAFA"
#> 
#> $`dropdown-border`
#> [1] "firebrick"
#> 
#> 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_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)
}