fresh: bs_vars_dropdown – R documentation

Become an expert in R — Interactive courses, Cheat Sheets, certificates and more!

bs_vars_dropdown

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

fresh

Create Custom 'Bootstrap' Themes to Use in 'Shiny'

v0.2.0

GPL-3

Authors

Victor Perrier [aut, cre, cph], Fanny Meyer [aut], Thomas Park [ctb, cph] (Bootswatch themes), Mark Otto [ctb] (Bootstrap library), Jacob Thornton [ctb] (Bootstrap library), Bootstrap contributors [ctb] (Bootstrap library), Twitter, Inc [cph] (Bootstrap library), onkbear [ctb, cph] (admin-lte-2-sass), Colorlib [ctb, cph] (AdminLTE)

Initial release