dashboardSidebar has no collapsed=TRUE default

[erebuslabs]

Unlike other elements within the shinydashboard environment there is no way to force the dashboard sidebar to start in a collapsed state. Addition of a collapsed variable could be helpful.

dashboardSidebar(
   conditionalPanel("input.Email.toLowerCase().indexOf('foobar.com')>-1",
      sidebarMenu(
          menuItem("WorkFlows", icon=icon("random"),
             menuSubItem("Basic", tabName = "rawdata", icon=icon("dashboard"),selected = TRUE),
             menuSubItem("Advanced Analytics", tabName = "advanced",icon=icon("line-chart"))
          ),
          menuItem("Profile", tabName = "profile", icon=icon("sliders"))
      )
   )
)

to

dashboardSidebar(collapsed=TRUE,
   conditionalPanel("input.Email.toLowerCase().indexOf('foobar.com')>-1",
      sidebarMenu(
          menuItem("WorkFlows", icon=icon("random"),
             menuSubItem("Basic", tabName = "rawdata", icon=icon("dashboard"),selected = TRUE),
             menuSubItem("Advanced Analytics", tabName = "advanced",icon=icon("line-chart"))
          ),
          menuItem("Profile", tabName = "profile", icon=icon("sliders"))
      )
   )
)

The default would be:

collapsed=FALSE

[MarkDB001]

+1 on the above request

Thanks,
Mark

[bdownie]

+1

[boxuancui]

+1

[scholarsmate]

+1

[joshuaisnow]

+1

[berksarioz]

+1