我已经做了一个shiny 的应用程序(在shinydashboard中),有很多菜单和子菜单项.如下所示的树形 struct
sidebarMenu(
menuItem("Item 1", tabName = "item1", icon = icon("dashboard")),
menuItem("Item 2", tabName = "item2", icon = icon("th"),
menuSubItem("Subitem1", tabName = "subitem1"),
menuSubItem("Subitem2", tabName = "subitem2")),
menuItem("Item 3", tabName = "item3", icon = icon("bolt"),
menuSubItem("Subitem3", tabName = "subitem3"),
menuSubItem("Subitem4", tabName = "subitem4")
)
)
在第一页中,我有四个操作按钮.我希望当任何操作按钮被点击时,相应的"子项#"页面都可以打开.我不能用shinydashboard::updateTabItems
英镑做这个.请帮帮忙.示例代码/应用程序是
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(title = "Dynamic Tab Example"),
dashboardSidebar(
sidebarMenu(
menuItem("Item 1", tabName = "item1", icon = icon("dashboard")),
menuItem("Item 2", tabName = "item2", icon = icon("th"),
menuSubItem("Subitem1", tabName = "subitem1"),
menuSubItem("Subitem2", tabName = "subitem2")),
menuItem("Item 3", tabName = "item3", icon = icon("bolt"),
menuSubItem("Subitem3", tabName = "subitem3"),
menuSubItem("Subitem4", tabName = "subitem4")
)
)
),
dashboardBody(
tabItems(
tabItem(
"item1",
actionButton("button1", "navigate to subitem1"),
actionButton("button2", "navigate to subitem2"),
actionButton("button3", "navigate to subitem3"),
actionButton("button4", "navigate to subitem4")
),
tabItem("subitem1",
box(
title = "Item 1",
actionButton("button1", "Button 1")
)
),
tabItem("subitem2",
box(
title = "Item 2 Content",
"This is the content for Item 2."
)
),
tabItem("subitem3",
box(
title = "Item 3 Content",
"This is the content for Item 3."
)
),
tabItem("subitem4",
box(
title = "Item 4 Content",
"This is the content for Item 4."
)
)
)
)
)
server <- function(input, output, session) {
}
shinyApp(ui, server)