Those variables can be used to customize navs (e.g. shiny::tabsetPanel or shiny::navlistPanel) in Bootstrap and Bootswatch themes.

bs_vars_nav(
  link_padding = NULL,
  link_hover_bg = NULL,
  disabled_link_color = NULL,
  disabled_link_hover_color = NULL
)

Arguments

link_padding

Padding for links (tabset's titles).

link_hover_bg

Link hover background color.

disabled_link_color

Disabled link color.

disabled_link_hover_color

Disabled link hover color.

Value

a list that can be used in create_theme.

Note

See bs_vars_pills and bs_vars_tabs for more options.

Examples

# Change color of tabset when hovered
bs_vars_nav(
  link_padding = "30px 45px",
  link_hover_bg = "#FF0000"
)
#> $`nav-link-padding`
#> [1] "30px 45px"
#> 
#> $`nav-link-hover-bg`
#> [1] "#FF0000"
#> 
#> 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_nav(
        link_padding = "30px 45px",
        link_hover_bg = "#FF0000"
      )
    )),

    tags$h1("State variables"),
    fluidRow(
      column(
        width = 6,
        navlistPanel(
          "Header",
          tabPanel("First"),
          tabPanel("Second"),
          tabPanel("Third")
        )
      ),
      column(
        width = 6,
        tabsetPanel(
          tabPanel("Plot", plotOutput("plot")),
          tabPanel("Summary", verbatimTextOutput("summary")),
          tabPanel("Table", tableOutput("table"))
        )
      )
    )
  )

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

  }

  shinyApp(ui, server)
}