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

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

## -----------------------------------------------------------------------------
# library(shiny)
# library(bs4Dash)
# library(bs4Dashkit)
# 
# # 1. Build the brand / sidebar configuration object
# ttl <- dash_titles(
#   brand_text     = "Test Dashboard",
#   icon           = icon("project-diagram"),
#   weight         = 700,
#   effect         = "shimmer",
#   glow_color     = "#2f6f8f",
#   size           = "20px",
#   italic         = FALSE,
#   collapsed      = "icon-text",
#   expanded       = "icon-text",
#   collapsed_text = "TDB",
#   expanded_text  = "Dashboard",
#   brand_divider  = TRUE
# )
# 
# # 2. UI
# ui <- bs4DashPage(
#   title  = ttl$app_name,
# 
#   header = bs4DashNavbar(
#     title = ttl$brand,
#     skin  = "light",
#     rightUi = tagList(
#       dash_nav_title(
#         "OLTCR DASHBOARDS",
#         "Mission Critical & LTC Main",
#         icon  = icon("shield-halved"),
#         align = "center"
#       ),
#       dash_nav_item(dash_nav_refresh_button("refresh")),
#       dash_nav_item(dash_nav_help_button("help")),
#       dash_nav_item(
#         dash_user_menu(
#           dropdownMenu(
#             type = "notifications",
#             notificationItem("Profile"),
#             notificationItem("Logout")
#           )
#         )
#       )
#     )
#   ),
# 
#   sidebar = bs4DashSidebar(
#     skin = "light",
#     bs4SidebarMenu(
#       bs4SidebarMenuItem("Dashboard", tabName = "dash",     icon = icon("gauge-high")),
#       bs4SidebarMenuItem("Projects",  tabName = "proj",     icon = icon("folder-open")),
#       bs4SidebarMenuItem("Settings",  tabName = "settings", icon = icon("gear"))
#     )
#   ),
# 
#   body = bs4DashBody(
#     # Core: always first (loads CSS/JS, theme preset, sidebar behavior)
#     use_bs4Dashkit_core(
#       ttl,
#       preset = "professional",
#       topbar_h = 56,
#       collapsed_w = 4.2,
#       expanded_w = 250
#     ),
# 
#     bs4TabItems(
#       bs4TabItem(
#         tabName = "dash",
#         fluidRow(
#           bs4Card(
#             title  = "Welcome",
#             width  = 12,
#             status = "primary",
#             tagList(
#               p("This app demonstrates major ", code("bs4Dashkit"), " features."),
#               p("Try collapsing and expanding the sidebar, and hover over it when collapsed.")
#             )
#           )
#         ),
#         fluidRow(
#           bs4Card(title = "Card A", width = 4, "Content A"),
#           bs4Card(title = "Card B", width = 4, "Content B"),
#           bs4Card(title = "Card C", width = 4, "Content C")
#         )
#       ),
# 
#       bs4TabItem(
#         tabName = "proj",
#         bs4Card(title = "Projects", width = 12, "Project content here.")
#       ),
# 
#       bs4TabItem(
#         tabName = "settings",
#         bs4Card(
#           title = "Theme",
#           width = 6,
#           p("This example uses the ", code("professional"), " preset."),
#           p("See the Theming article for presets and advanced customization.")
#         )
#       )
#     )
#   ),
# 
#   footer = dash_footer(
#     logo_src  = NULL,
#     left_text = "Your Organization \u2022 Test App"
#   )
# )
# 
# # 3. Server
# server <- function(input, output, session) {
# 
#   observeEvent(input$refresh, {
#     session$reload()
#   })
# 
#   observeEvent(input$help, {
#     showModal(modalDialog(
#       title = "Help",
#       tagList(
#         h4("About this dashboard"),
#         p("This is a demonstration of bs4Dashkit features."),
#         h4("Contact"),
#         p("support@yourorg.gov")
#       ),
#       size      = "m",
#       easyClose = TRUE,
#       footer    = modalButton("Close")
#     ))
#   })
# }
# 
# # 4. Run
# shinyApp(ui, server)
# 

