tests-manual/renderMenu.R

In yjalbert/shinydashboard: Create Dashboards with 'Shiny'

# ========== Dynamic sidebarMenu ==========

library(shiny)
ui <- dashboardPage(
  dashboardHeader(title = "Dynamic sidebar"),
  dashboardSidebar(
    sidebarMenuOutput("menu")
  ),
  dashboardBody()
)

server <- function(input, output) {
  output$menu <- renderMenu({
    sidebarMenu(
      menuItem("Menu item", icon = icon("calendar"))
    )
  })
}

shinyApp(ui, server)