Those variables can be used to customize
pills (e.g. shiny:tabsetPanel
in Bootstrap and Bootswatch themes.
bs_vars_tabs( border_color = NULL, link_hover_border_color = NULL, active_link_hover_bg = NULL, active_link_hover_color = NULL, active_link_hover_border_color = NULL, justified_link_border_color = NULL, justified_active_link_border_color = NULL )
border_color | Border color. |
---|---|
link_hover_border_color | Link hover color. |
active_link_hover_bg | Active link hover background color. |
active_link_hover_color | Active link hover color. |
active_link_hover_border_color | Active link hover border color. |
justified_link_border_color | Justified link border color. |
justified_active_link_border_color | Justified active link border color. |
a list
that can be used in create_theme
.
bs_vars_tabs( border_color = "#FF0000", # red link_hover_border_color = "#FFFF00", # yellow active_link_hover_bg = "#FF00FF", # pink active_link_hover_color = "#FFF" # white )#> $`nav-tabs-border-color` #> [1] "#FF0000" #> #> $`nav-tabs-link-hover-border-color` #> [1] "#FFFF00" #> #> $`nav-tabs-active-link-hover-bg` #> [1] "#FF00FF" #> #> $`nav-tabs-active-link-hover-color` #> [1] "#FFF" #> #> 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_global( link_color = "#00FF00" #green ), bs_vars_tabs( border_color = "#FF0000", # red link_hover_border_color = "#FFFF00", # yellow active_link_hover_bg = "#FF00FF", # pink active_link_hover_color = "#FFF" # white ) )), tags$h1("Tabs panel"), sidebarLayout( sidebarPanel(), mainPanel( tabsetPanel( tabPanel("Plot", plotOutput("plot")), tabPanel("Summary", verbatimTextOutput("summary")), tabPanel("Table", tableOutput("table")) ) ) ) ) server <- function(input, output, session) { } shinyApp(ui, server) }