Я не могу отобразить группу ящиков внутри тела приборной панели, используя блестящее приложение

Question

Я не могу отобразить окно в теле приборной панели.

Показывает всю панель, но с чем-либо на них.

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
library(qcc)


  sidebar <- dashboardSidebar(width = 350,

      sidebarMenu(
      menuItem("Falcon 1",tabName = "Falcon 11")
      ,
      menuItem("Falcon 2",tabName = "Falcon 22")))

   body<- dashboardBody(
          tabItems(
              tabItem(tabName="Falcon 11",
        box(plotOutput("histogram")),
        box(plotOutput("chart2")),
        box(plotOutput("chart3")),
        box(plotOutput("chart4"))),
          tabItem(tabName="Falcon 22",
        box(plotOutput("chart5")),
        box(plotOutput("chart6")),
        box(plotOutput("chart7")),
        box(plotOutput("chart8")),
        box(plotOutput("chart9")),
        box(plotOutput("chart10")))))


   ui <- dashboardPage(
     dashboardHeader(title = "Control Charts - Horno Glasston", titleWidth = 350),sidebar,body)

Когда я рендерим приложение, оно показывает мне только панель, но не все поля внутри каждого tabItem.

Я только начал с R, и я много борюсь с этим.

Answer 1

Я думаю, это потому, что вы используете пробел в вашем tabName, просто измените Falcon 11 на Falcon_11 (также Falcon 22), и это должно работать нормально, я думаю, что это ошибка типа shiny.

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
library(qcc)


sidebar <- dashboardSidebar(width = 350,

                            sidebarMenu(
                              menuItem("Falcon 1",tabName = "Falcon_11")
                              ,
                              menuItem("Falcon 2",tabName = "Falcon_22")))

body<- dashboardBody(
  tabItems(
    tabItem(tabName="Falcon_11",
            box(plotOutput("histogram")),
            box(plotOutput("chart2")),
            box(plotOutput("chart3")),
            box(plotOutput("chart4"))),
    tabItem(tabName="Falcon_22",
            box(plotOutput("chart5")),
            box(plotOutput("chart6")),
            box(plotOutput("chart7")),
            box(plotOutput("chart8")),
            box(plotOutput("chart9")),
            box(plotOutput("chart10")))))

ui <- dashboardPage(
  dashboardHeader(title = "Control Charts - Horno Glasston", titleWidth = 350),sidebar,body)

server<-function(input,output){
  output$histogram<-renderPlot({
    # plot(1)
  })
}
shinyApp(ui,server)