Shinydashboard: Is it not possible to have nested menu sub items? Can't make it work

r shiny shinydashboard
Gopala picture Gopala · Jun 2, 2016 · Viewed 10.8k times · Source

I am using a shinydashboard, and have a need to build two-level nested sub menus. I am trying this and won't work:

library(shinydashboard)
sidebar <- dashboardSidebar(
  sidebarMenu(id = 'sidebarmenu',
              menuItem('x', tabName = 'x', icon = icon('line-chart')),
              menuItem('y', tabName = 'y',
                       icon = icon('line-chart'),
                       menuSubItem('a',
                                   tabName = 'a',
                                   icon = icon('line-chart')),
                       menuSubItem('b',
                                   tabName = 'b',
                                   icon = icon('line-chart'),
                                   menuSubItem('l',
                                               tabName = 'l',
                                               icon = icon('line-chart')),
                                   menuSubItem('m',
                                               tabName = 'm',
                                               icon = icon('line-chart'))),
                       menuSubItem('c',
                                   tabName = 'c',
                                   icon = icon('line-chart'))
              )))

Gives me error:

Error in menuSubItem("b", tabName = "b", icon = icon("line-chart"), menuSubItem("l",  : 
  Can't specify both href and tabName

Is it possible to build two-level nesting? Of course, removing l and m sub menus above works just fine (with one level sub menus).

Answer

Bryan Goggin picture Bryan Goggin · Jun 2, 2016

It works if you only use menuSubItem as the lowest level, and call the others menuItem. Will that work for your purposes?

sidebar <- dashboardSidebar(
sidebarMenu(id = 'sidebarmenu',
            menuItem('x', tabName = 'x', icon = icon('line-chart')),
            menuItem('y', tabName = 'y',
                     icon = icon('line-chart'),
                     menuItem('a',
                                 tabName = 'a',
                                 icon = icon('line-chart')),
                     menuItem('b',
                                 tabName = 'b',
                                 icon = icon('line-chart'),
                                 menuSubItem('l',
                                             tabName = 'l',
                                             icon = icon('line-chart')),
                                 menuSubItem('m',
                                             tabName = 'm',
                                             icon = icon('line-chart'))),
                     menuItem('c',
                                 tabName = 'c',
                                 icon = icon('line-chart'))
            )))

Related questions

Adding a company Logo to ShinyDashboard header

So just curious, is there any way to add a company logo to the header of a ShinyDashboard? As I am looking at the documentation, it describes changing the "logo" in the CSS, this is just configuring what goes in …

Read More
How to change color in shiny dashboard?

(cross post from shiny google groups) Could some one point me to the tag names that I have to modify the color of a shiny dashboard? Modified from http://rstudio.github.io/shinydashboard/appearance.html#long-titles this will change the …

Read More
How to display widgets inline in shiny

I have the below code to display the widgets inline(in same row) in shiny div(style="display:inline-block; width: 150px;height: 75px;",selectInput("ddllgra", "Function:",c('mean','median','sd','count','min','max'), selected='mean')), div(style="display:inline-block; width: 150…

Read More