bs_vars_nav: Bootstrap CSS nav variables

Description Usage Arguments Value Note Examples

View source: R/vars-bootstrap.R

Description

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

Usage

1
2
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

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
# 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)
}

fresh documentation built on Oct. 30, 2019, 11:38 a.m.