R/dash_leftsidebar.R

In arestrom/BaselineData: Puget Sound Baseline Data

#==========================================================================
# ShinyDashboardPlus left sidebar
#==========================================================================

dash_leftsidebar = shinydashboard::dashboardSidebar(
  width = 175,
  shinydashboard::sidebarMenu(
    id = "tabs",
    shinydashboard::menuItem("When and where", tabName = "catch_area_site", icon = icon("globe")),
    shinydashboard::menuItem("Add or edit data", tabName = "data_edits", icon = icon("database")),
    shinydashboard::menuItem("Edit creel site", tabName = "sample_site", icon = icon("map-pin")),
    shinydashboard::menuItem("Sampler info", tabName = "sampler_info", icon = icon("user")),
    shinydashboard::menuItem("Data query", tabName = "data_query", icon = icon("share-square")),
    shinydashboard::menuItem("About", tabName = "about", icon = icon("info-circle"))
  )
)