R: Bootstrap nav variables

bs_vars_nav

R Documentation

Bootstrap 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.

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

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