Shinydashboard: Ist es nicht möglich, verschachtelte Menüunterelemente zu haben? Kann es nicht funktionieren lassen

Question

Ich benutze ein Shinydashboard und muss zwei Ebenen verschachtelte Untermenüs erstellen. Ich versuche, diese und wird nicht funktionieren:

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')) 
      ))) 

gibt mir Fehler:

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

Ist es möglich, auf zwei Ebenen Verschachtelung zu bauen? Natürlich funktioniert das Entfernen der obigen Untermenüs l und m problemlos (mit Untermenüs auf einer Ebene).

Answer 1

Es funktioniert, wenn Sie nur menuSubItem als niedrigste Ebene verwenden, und rufen Sie die anderen menuItem. Wird das für Ihre Zwecke funktionieren?

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')) 
      )))