# NOT RUN {
# Use a smaller font than the default
bs_vars_font(
size_base = "12px"
)
if (interactive()) {
library(shiny)
library(fresh)
ui <- fluidPage(
use_theme(create_theme(
theme = "default",
bs_vars_font(
size_base = "32px"
)
)),
tags$h1("Big font theme"),
sidebarLayout(
sidebarPanel(
"This is the sidebar panel"
),
mainPanel(
tags$h1("First level title"),
tags$h2("Second level title"),
tags$h3("Third level title"),
tags$h4("Fourth level title"),
tags$h5("Fifth level title"),
tags$h6("Sixth level title")
)
)
)
server <- function(input, output, session) {
}
shinyApp(ui, server)
}
# }
Run the code above in your browser using DataLab