menuitems in sidebar should be collapsible

[mattapel]

Great package! Unfortunately it is not yet possible to have collapsible menuItems in the sidebar as in shinydashboard

`library(shiny) library(shinydashboard) # <-- Change this line to: library(semantic.dashboard)

ui <- dashboardPage( dashboardHeader(title = "Basic dashboard"), dashboardSidebar(sidebarMenu( menuItem(tabName = "home", text = "Home", icon = icon("home"), menuItem(tabName = "another", text = "Another Tab", icon = icon("heart"))) # <--- collapsible menuItem only in shinydashboard )), dashboardBody( fluidRow( box(plotOutput("plot1", height = 250)), box( title = "Controls", sliderInput("slider", "Number of observations:", 1, 100, 50) ) ) ) )

server <- function(input, output) { set.seed(122) histdata <- rnorm(500) output$plot1 <- renderPlot({ data <- histdata[seq_len(input$slider)] hist(data) }) }

shinyApp(ui, server)`