Those variables can be used to customize
pills (e.g. shiny:tabsetPanel
in Bootstrap and Bootswatch themes.
bs_vars_pills(
border_radius = NULL,
active_link_hover_bg = NULL,
active_link_hover_color = NULL
)
Rounded corner of elements.
Background color when selected.
Text color when selected.
a list
that can be used in create_theme
.
bs_vars_pills(
border_radius = "100px",
active_link_hover_bg = "#DF3A01",
active_link_hover_color = "#FFF"
)
#> $`nav-pills-border-radius`
#> [1] "100px"
#>
#> $`nav-pills-active-link-hover-bg`
#> [1] "#DF3A01"
#>
#> $`nav-pills-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_pills(
border_radius = "100px",
active_link_hover_bg = "#DF3A01",
active_link_hover_color = "#FFF"
),
output_file = NULL
)
),
tabsetPanel(
type = "pills",
tabPanel("Plot", plotOutput("plot")),
tabPanel("Summary", verbatimTextOutput("summary")),
tabPanel("Table", tableOutput("table"))
)
)
server <- function(input, output, session) {
}
shinyApp(ui, server)
}