Динамическое меню боковой панели RShiny

Question

У меня проблема с моей приборной панелью. Я хочу создать динамическое меню боковой панели, но по умолчанию пункт меню не работает. Пользователь должен щелкнуть его, чтобы показать его. Я нашел пример по этой проблеме https://github.com/rstudio/shinydashboard/issues/71 но решение не работает. Если у вас есть идеи ... спасибо заранее

library(shiny) 
library(shinydashboard) 

ui <- dashboardPage(
    dashboardHeader(title = "Dynamic sidebar"), 
    dashboardSidebar(
    sidebarMenuOutput("menu") 
), 
    dashboardBody(tabItems(
    tabItem(tabName = "dashboard", h2("Dashboard tab content")) 
)) 
) 

server <- function(input, output) { 
    output$menu <- renderMenu({ 
    sidebarMenu(id="mytabs", 
     menuItem("Menu item", tabName="dashboard", icon = icon("calendar")) 
    ) 
    }) 
} 

shinyApp(ui, server) 

Answer 1

Вот решение, использующее updateTabItems.

library(shiny) 
library(shinydashboard) 

ui <- dashboardPage(
    dashboardHeader(title = "Dynamic sidebar"), 
    dashboardSidebar(
    sidebarMenu(id="mytabs", 
     sidebarMenuOutput("menu") 
    ) 
), 
    dashboardBody(tabItems(
    tabItem(tabName = "dashboard", h2("Dashboard tab content")) 
)) 
) 

server <- function(input, output, session) { 
    output$menu <- renderMenu({ 
    sidebarMenu(
       menuItem("Menu item", tabName="dashboard", icon = icon("calendar")) 
    ) 
    }) 
    isolate({updateTabItems(session, "mytabs", "dashboard")}) 
} 

shinyApp(ui, server) 

Чтобы перейти к динамическому меню, вы можете увидеть этот пример. R shinydashboard dynamic menu selection

Edit: Я думаю, что isolate не нужен, но я хотел бы поставить его таким образом, чтобы улучшить чтение кода