У меня есть приведенный ниже код, и после нажатия на «Набор данных» в боковом меню с подпунктами тело приборной панели не изменяется на текст в 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)