R 闪亮的仪表板表菜单项与子项

Question

我在 R 闪亮的仪表板中有一个表格，但是当我在该表格下添加一个菜单子项时，屏幕上不再呈现任何内容

ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(
sidebarMenu(
menuItem("Table" , tabname = "my_table", icon = icon("table"),
menuSubItem("sub menu",
tabName = "subMenu")),
menuItem("Next Widget", tabName = "Other"))),
dashboardBody(
tabItems(
tabItem(tabName = "my_table",
fluidRow(DT::dataTableOutput("example_table")
)),
tabItem(tabName = "Other",
h2("Other tab")
)
)))

Answer 1

您走对了路 - 在dashboardBody()中使用menuSubItem的 ID 。

ui <- dashboardPage(
dashboardHeader(),
dashboardSidebar(
sidebarMenu(
menuItem("Table" , tabname = "my_table", icon = icon("table"),
startExpanded = TRUE,
menuSubItem("sub menu",
tabName = "subMenu")),
menuItem("Next Widget", tabName = "Other"))),

dashboardBody(
tabItems(
tabItem(tabName = "subMenu", #my_table",
h2("First tab")
),
tabItem(tabName = "Other",
h2("Other tab")
)
)))
server <- function(input, output) {

}
shinyApp(ui, server)