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()。为此，您必须为设置一个ID，sidebarMenu并更新相应的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)

编辑版本以消除缩进问题