## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment  = "#>",
  eval     = FALSE
)

## ----setup--------------------------------------------------------------------
# library(bs4Dashkit)

## -----------------------------------------------------------------------------
# body = bs4DashBody(
#   use_bs4Dashkit_core(ttl, preset = "professional"),  # default
#   # ...
# )

## -----------------------------------------------------------------------------
# body = bs4DashBody(
#   use_bs4Dashkit_core(ttl, preset = "professional", accent = "#2f6f8f"),
#   # ...
# )

## -----------------------------------------------------------------------------
# body = bs4DashBody(
#   use_bs4Dashkit_core(
#     ttl,
#     preset = "professional",
#     accent = "#2f6f8f",
#     radius = 14,
#     shadow = "0 2px 8px rgba(0,0,0,0.08)"
#   )
# )
# 

## -----------------------------------------------------------------------------
# body = bs4DashBody(
#   use_bs4Dashkit_core(ttl, preset = NULL, accent = "#2f6f8f"),
#   # ...
# )
# 

## -----------------------------------------------------------------------------
# body = bs4DashBody(
#   use_bs4Dashkit_core(ttl, preset = NULL),
#   use_dash_theme(
#     bg      = "#f5f6f8",
#     surface = "#ffffff",
#     border  = "#e2e3e7",
#     text    = "#1d1f23",
#     muted   = "#6b6f76",
#     accent  = "#2f6f8f",
#     radius  = 12
#   )
# )
# 

## -----------------------------------------------------------------------------
# body = bs4DashBody(
#   use_bs4Dashkit_core(ttl, preset = NULL),  # load core, no preset
#   use_dash_theme_preset("modern"),         # apply preset explicitly
#   # ...
# )

## -----------------------------------------------------------------------------
# bs4dashkit_theme_presets()
# bs4dashkit_theme_presets(values = TRUE)

## -----------------------------------------------------------------------------
# library(shiny)
# library(bs4Dash)
# library(bs4Dashkit)
# 
# ttl <- dash_titles("My App", icon = icon("palette"))
# 
# ui <- bs4DashPage(
#   title   = ttl$app_name,
#   header  = bs4DashNavbar(title = ttl$brand),
#   sidebar = bs4DashSidebar(
#     bs4SidebarMenu(
#       bs4SidebarMenuItem("Home", tabName = "home", icon = icon("house"))
#     )
#   ),
#   body = bs4DashBody(
#     use_bs4Dashkit_core(ttl, preset = "professional"),
#     selectInput(
#       "theme_choice", "Theme",
#       choices  = c("professional", "modern", "dark-lite"),
#       selected = "professional"
#     ),
#     uiOutput("theme_css"),
#     bs4TabItems(
#       bs4TabItem(
#         tabName = "home",
#         bs4Card(title = "Theme Demo", width = 6, "Card content here.")
#       )
#     )
#   )
# )
# 
# server <- function(input, output, session) {
#   output$theme_css <- renderUI({
#     use_dash_theme_preset(input$theme_choice)
#   })
# }
# 
# shinyApp(ui, server)