Bootstrap tabs variables — bs_vars

Those variables can be used to customize pills (e.g. shiny:tabsetPanel in Bootstrap and Bootswatch themes.

bs_vars_tabs(
  border_color = NULL,
  link_hover_border_color = NULL,
  active_link_hover_bg = NULL,
  active_link_hover_color = NULL,
  active_link_hover_border_color = NULL,
  justified_link_border_color = NULL,
  justified_active_link_border_color = NULL
)

Arguments

border_color: Border color.
link_hover_border_color: Link hover color.
active_link_hover_bg: Active link hover background color.
active_link_hover_color: Active link hover color.
active_link_hover_border_color: Active link hover border color.
justified_link_border_color: Justified link border color.
justified_active_link_border_color: Justified active link border color.

Value

a list that can be used in create_theme.

Examples

bs_vars_tabs(
  border_color = "#FF0000", # red
  link_hover_border_color = "#FFFF00", # yellow
  active_link_hover_bg = "#FF00FF", # pink
  active_link_hover_color = "#FFF" # white
)
#> $`nav-tabs-border-color`
#> [1] "#FF0000"
#> 
#> $`nav-tabs-link-hover-border-color`
#> [1] "#FFFF00"
#> 
#> $`nav-tabs-active-link-hover-bg`
#> [1] "#FF00FF"
#> 
#> $`nav-tabs-active-link-hover-color`
#> [1] "#FFF"
#> 
#> attr(,"class")
#> [1] "fresh_sass_vars" "bootstrap_vars"  "list"           

if (interactive()) {
  library(shiny)
  library(fresh)

  ui <- fluidPage(
    use_theme(create_theme(
      theme = "default",
      bs_vars_global(
        link_color = "#00FF00" #green
      ),
      bs_vars_tabs(
        border_color = "#FF0000", # red
        link_hover_border_color = "#FFFF00", # yellow
        active_link_hover_bg = "#FF00FF", # pink
        active_link_hover_color = "#FFF" # white
      )
    )),
    tags$h1("Tabs panel"),

    sidebarLayout(
      sidebarPanel(),
      mainPanel(
        tabsetPanel(
          tabPanel("Plot", plotOutput("plot")),
          tabPanel("Summary", verbatimTextOutput("summary")),
          tabPanel("Table", tableOutput("table"))
        )
      )
    )
  )

  server <- function(input, output, session) {

  }

  shinyApp(ui, server)
}