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

## ----eval = FALSE-------------------------------------------------------------
# library(shiny)
# library(bslibdash)
# 
# ui <- dashboardPage(
#   header = dashboardHeader(title = "bslibdash demo"),
#   sidebar = dashboardSidebar(
#     sidebarMenu(
#       id = "sidebarMenu",
#       menuItem("Overview", tabName = "overview", icon = icon("house")),
#       menuItem("Reports", tabName = "reports", icon = icon("bar-chart"))
#     )
#   ),
#   body = dashboardBody(
#     tabItems(
#       tabItem(
#         tabName = "overview",
#         h2("Overview"),
#         boxLayout(
#           box("First card", title = "Status", width = 6),
#           box("Second card", title = "Details", width = 6)
#         )
#       ),
#       tabItem(
#         tabName = "reports",
#         h2("Reports"),
#         box("Report content", title = "Quarterly")
#       )
#     )
#   )
# )
# 
# server <- function(input, output, session) {}

## ----eval = FALSE-------------------------------------------------------------
# shinyApp(ui, server)

## ----eval = FALSE-------------------------------------------------------------
# observeEvent(input$go_reports, {
#   updateTabItems(session, inputId = "sidebarMenu", selected = "reports")
# })