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
)
Padding for links (tabset's titles).
Link hover background color.
Disabled link color.
Disabled link hover color.
a list
that can be used in create_theme
.
See bs_vars_pills
and bs_vars_tabs
for more options.
# 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)
}