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

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

## -----------------------------------------------------------------------------
# ttl <- dash_titles(
#   brand_text = "Topnav Lab",
#   icon = icon("compass"),
#   collapsed = "icon-only",
#   expanded = "icon-text"
# )
# 
# body <- bs4DashBody(
#   use_bs4Dashkit_core(
#     ttl,
#     preset = "professional",
#     layout = "topnav",
#     topnav = dash_topnav_options(
#       align = "left",
#       gap = 6,
#       mobile = "collapse",
#       style = "compact",
#       title = "auto"
#     )
#   ),
#   bs4TabItems(
#     bs4TabItem(tabName = "overview", "Overview"),
#     bs4TabItem(tabName = "reports", "Reports")
#   )
# )

## -----------------------------------------------------------------------------
# use_bs4Dashkit_core(
#   ttl,
#   layout = "topnav",
#   topnav = dash_topnav_options(mobile = "collapse")
# )

## -----------------------------------------------------------------------------
# use_bs4Dashkit_core(
#   ttl,
#   layout = "topnav",
#   topnav = dash_topnav_options(style = "underline")
# )
# use_bs4Dashkit_core(
#   ttl,
#   layout = "topnav",
#   topnav = dash_topnav_options(style = "pill")
# )
# use_bs4Dashkit_core(
#   ttl,
#   layout = "topnav",
#   topnav = dash_topnav_options(style = "compact")
# )

## -----------------------------------------------------------------------------
# use_bs4Dashkit_core(
#   ttl,
#   layout = "topnav",
#   topnav = dash_topnav_options(
#     overflow = "more",
#     more_after = 4
#   )
# )

## -----------------------------------------------------------------------------
# observeEvent(input$bs4dashkit_topnav, {
#   str(input$bs4dashkit_topnav)
# })

## -----------------------------------------------------------------------------
# use_bs4Dashkit_core(
#   ttl,
#   layout = "topnav",
#   topnav = dash_topnav_options(page_title = "tab")
# )

## -----------------------------------------------------------------------------
# bs4DashBody(
#   use_bs4Dashkit(),
#   ttl$deps,
#   use_dash_theme_preset("professional"),
#   use_dash_topnav(topbar_h = "56px", align = "left", gap = 6, mobile = "collapse")
# )

## -----------------------------------------------------------------------------
# bs4SidebarMenu(
#   id = "sidebar",
#   bs4SidebarMenuItem("Overview", tabName = "overview", icon = icon("gauge-high")),
#   bs4SidebarMenuItem(
#     "Reports",
#     icon = icon("chart-line"),
#     bs4SidebarMenuSubItem("Monthly", tabName = "monthly"),
#     bs4SidebarMenuSubItem("Quality", tabName = "quality")
#   )
# )

## -----------------------------------------------------------------------------
# shiny::runApp(system.file("examples", "topnav-prototype", package = "bs4Dashkit"))