R/ui_sidebar.R

In tomicapretto/cemrepboot: What the Package Does (One Line, Title Case)

ui_sidebar = function() {
  shinydashboard::dashboardSidebar(
    shinydashboard::sidebarMenu(
      # Setting id makes input$tabs give the tabName of currently-selected tab
      id = "tabs",

      shinydashboard::menuItem(
        text = "Base de datos",
        tabName = "datos"
      ),
      shinydashboard::menuItem(
        text = "Indicadores",
        tabName = "indicadores"
      ),
      shinydashboard::menuItem(
        text = "Resultados",
        tabName = "resultados"
      ),
      shinydashboard::menuItem(
        text = "Exportar resultados",
        tabName = "exportar"
      )
    )
  )
}