Доступ к элементам внутри пункта меню в панели инструментов Shiny - PullRequest
Новая
       14

Доступ к элементам внутри пункта меню в панели инструментов Shiny

0 голосов
/ 13 марта 2019

Мне нужно сделать боковое меню с дочерними элементами.Если элементы меню не содержат дочерних элементов, панель управления работает, как и ожидалось, например, в этом коде: 

library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(
    title = "Shiny"
  ),

  dashboardSidebar(
    sidebarMenu(  
      menuItem("About",tabName="A",fluidRow(column(12, p("plot1")))),
      menuItem("Second",tabName="B")

  )),

  dashboardBody(
    tabItems(
      tabItem(tabName = "Asd",fluidRow(column(12, plotOutput("plot1")))),
      tabItem(tabName = "B",fluidRow(column(12, p("HI"))))

  )))

server <- function(input, output) {
  output$plot1 <- renderPlot({
    plot(mtcars$wt, mtcars$mpg)
  })
  output$plot2 <- renderPlot({
    plot(mtcars$wt, mtcars$wt)
  })
}

shinyApp(ui,server)

Однако, если я изменю первый элемент меню боковой панели на следующее: 

menuItem("About",tabName="A",fluidRow(column(12, p("plot1")))),

Я не могу отобразить график или изменить параметры меню.

Есть предложения о том, как это исправить?

...