时间戳

首页 > 解决方案 > 带有 subItems 的 sidebarMenu 在dashboardbody 闪亮中没有响应

r - 带有 subItems 的 sidebarMenu 在dashboardbody 闪亮中没有响应

问题描述

我有以下代码，单击带有子项的侧边栏菜单中的“数据集”后，仪表板主体不会更改为 tabItem 中的文本。理想情况下，单击“数据集”时，正文应显示“数据集菜单子项内容”。我提到了类似的线程，但没有成功。谁能帮忙。

library(shiny)
library(shinydashboard)

sidebar <- dashboardSidebar(
sidebarMenu(
menuItem("Documentation", tabName = "documentation"),
menuItem("Dataset", tabName="dataset",icon = icon("info"), 
         menuSubItem(fileInput("Input", "Upload input file:")),

menuSubItem(numericInput("samples",label="Samples",value=0,max=10)))))


body <- dashboardBody(
tabItems(
tabItem(tabName = "documentation",div(p("Dashboard tab content"))),
tabItem(tabName = "dataset",div(p("Dataset menu sub-items content")))))


ui <- dashboardPage(dashboardHeader(title = "Test"),
          sidebar,
          body)

server <- function(input, output, session) {

}

shinyApp(ui, server)

标签： rshinydashboard

解决方案

推荐阅读