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)

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

1 个答案: