R Shiny: Содержание TabItem не отображается, когда есть menuSubItems

Question

Рассмотрим следующий R Shiny код:

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

Когда я нажимаю на пункт менюTransportation, почему я не вижу headerPanel('Transportation')?

Является ли это ожидаемым поведением? Ожидается ли, что содержание в tabItem должно игнорироваться в случае, когда соответствующий элемент меню имеет menuSubItems?

Answer 1

Я не 100% уверен, что это то, что вы ищете, но это делает Transportation headerPanel шоу:

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