我无法使用闪亮的应用程序在仪表板体内呈现一组框答案

【问题标题】：I can not render a group of box inside a dashboardbody using shiny app我无法使用闪亮的应用程序在仪表板体内呈现一组框
【发布时间】：2018-09-13 09:20:47
【问题描述】：

我无法在仪表板主体中呈现该框。

它显示了整个面板，但上面有任何内容。

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，我为此苦苦挣扎。

【问题讨论】：

标签： r shiny shinydashboard

【解决方案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)

【讨论】：

我改了还是一样。
对不起，看修改后的答案。
非常感谢。我是 R 新手，所以我不知道这个问题。你知道我是否可以从这段代码创建一个 .exe 吗？感谢您的宝贵时间。
R 和闪亮的应用程序无法编译成 exe 文件，您可以设置闪亮的服务器或部署在shinyapps.io