R Shiny: Der Inhalt des TabItem nicht angezeigt wird, wenn es menuSubItems

Question

die folgenden R Shiny Code vor:

# ui.R 

library(shiny) 
library(shinydashboard) 


dashboardPage(
    dashboardHeader(), 
    dashboardSidebar(
    sidebarMenu(
     menuItem("First", tabName="First"), 
     menuItem("Transportation", tabName = "Transportation", 
         menuSubItem("Air", tabName = "Air"), 
         menuSubItem("Maritime", tabName = "Maritime")))), 
    dashboardBody(tabItems(tabItem(tabName = "First", 
           headerPanel('First')), 
         tabItem(tabName = "Transportation", 
           headerPanel('Transportation')), 
         tabItem(tabName = "Air", 
           headerPanel('Air')), 
         tabItem(tabName = "Maritime", 
           headerPanel('Maritime'))))) 

Wenn ich auf dem Menüpunkt Transport klicken, warum ich nicht die headerPanel('Transportation') sehen?

Ist dies das erwartete Verhalten? Ist das erwartete Verhalten, dass Inhalt in einem TabItem ignoriert werden soll, wenn das entsprechende MenuItem menuSubItems hat?

Answer 1

Ich bin nicht 100% sicher, das ist, was Sie suchen, aber das macht einen Transport headerPanel Show:

menuItem("Transportation", tabName = "Transportation", 
       menuSubItem("Air", tabName = "Air"), 
       menuSubItem("Maritime", tabName = "Maritime"), 
       menuSubItem("Transportation", tabName = "Transportation")))),