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

编辑：我认为isolate不是必需的，但我喜欢用它来改善代码的阅读

动态侧边栏菜单RShiny

1 个答案: