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