fresh (version 0.1.0)

bs_vars_nav: Bootstrap CSS nav variables

Description

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

Usage

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.

Examples

# NOT RUN {
# Change color of tabset when hovered
bs_vars_nav(
  link_padding = "30px 45px",
  link_hover_bg = "#FF0000"
)

if (interactive()) {
  library(shiny)
  library(shinyWidgets)
  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)
}
# }