rshinydashboard динамические пункты подменю не оказывающие

Question

ui.R:

library(shinydashboard) 

dashboardPage(
    dashboardHeader(title='Dynamic Submenus'), 
    dashboardSidebar(
    sidebarMenuOutput("menu") 
), 
    dashboardBody(
    tabItems(
     tabItem("default", "Hello, World!"), 
     tabItem("dynatab", "Dynamic tab!") 
    ) 
) 
) 

server.R:

shinyServer(function(input, output) { 
    output$menu <- renderMenu({ 
    sidebarMenu(
     menuItem("Dashboard", icon = icon("dashboard"), tabName = "default"), 
     menuItem("Root Menu", icon = icon("book"), 
     menuSubItem("Add New Submenu", icon = icon("plus"), tabName = "dynatab") 
    ) 
    ) 
    }) 
}) 

---

страница будет оказывать "Dashboard" и "Root Menu", с " < "рядом с корневым меню, указывающим, что у него есть подменю, но нажатие на пункт меню не предоставляет выпадающего списка.

Кто-нибудь знает, почему это не работает? Разрешить пользователю создавать подменю - это то, что я действительно хотел бы сделать с моим приложением.

Answer 1

Просто так, что вы знаете, Уинстон Чанг просто подтолкнул исправить эту проблему к shinydashboard github repo.