r语言 - 我无法使用闪亮的应用程序在仪表板主体内渲染一组框

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)

当我渲染应用程序时，它只向我显示面板，而不是每个选项卡项内的所有框。

我刚刚开始使用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)