R shinydashboard动态菜单选择

Question

我在R shinydashboard中创建了动态sibebar菜单。即使我使用selected = TRUE，在此动态模式下启动时也不会选择与菜单关联的menuItem。

如何确保在此动态模式下启动时显示哪个menuItem的内容？

我一直在搜索类似的帖子。到目前为止找不到任何有用的东西。 updateTabItems()似乎没有用。

有什么想法吗？ 谢谢你提前。

library(shiny)
library(shinydashboard)
ui <- dashboardPage(
  dashboardHeader(title = "Dynamic sidebar"),
  dashboardSidebar(
    sidebarMenuOutput("menu")
  ),
  dashboardBody(
        tabItems(
          tabItem(tabName = "m1", p("Menu content 1") ),
          tabItem(tabName = "m2", p("Menu content 2") )
    )
   )
)
server <- function(input, output) {
  output$menu <- renderMenu({
    sidebarMenu(
      menuItem("Menu item1", tabName="m1", icon = icon("calendar")),
      menuItem("Menu item2", tabName="m2", icon = icon("database"),selected = TRUE)
    )
  })
}
shinyApp(ui, server)

编辑：Romain的anwser发生的缩进问题

Answer 1

您有效使用updateTabItems()。为此，您必须为sidebarMenu设置ID并更新相应的menuItem或menuSubItem。

对于您的具体情况，您应该这样做：

library(shiny)
library(shinydashboard)
ui <- dashboardPage(
  dashboardHeader(title = "Dynamic sidebar"),
  dashboardSidebar(
    sidebarMenu(id="tabs",
    sidebarMenuOutput("menu")
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(tabName = "m1", p("Menu content 1") ),
      tabItem(tabName = "m2", p("Menu content 2") )
    )
  )
)
server <- function(input, output,session) {

  output$menu <- renderMenu({
    sidebarMenu(
           menuItem("Menu item1", tabName="m1", icon = icon("calendar")),
           menuItem("Menu item2", tabName="m2", icon = icon("database"))
           )
  })
  isolate({updateTabItems(session, "tabs", "m2")})
}
shinyApp(ui, server)

编辑版本以删除缩进问题

Answer 2

为什么不使用在app init只调用一次的观察者

observe({ # called only once at app init
  updateTabItems(session, "tabs", "m2")
})