Description Usage Arguments Value Examples
View source: R/vars-bootstrap.R
Those variables can be used to customize
pills (e.g. shiny:tabsetPanel
in Bootstrap and Bootswatch themes.
1 2 3 4 5 | bs_vars_pills(
border_radius = NULL,
active_link_hover_bg = NULL,
active_link_hover_color = NULL
)
|
border_radius |
Rounded corner of elements. |
active_link_hover_bg |
Background color when selected. |
active_link_hover_color |
Text color when selected. |
a list
that can be used in create_theme
.
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 | bs_vars_pills(
border_radius = "100px",
active_link_hover_bg = "#DF3A01",
active_link_hover_color = "#FFF"
)
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)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.