运行应用程序时，Shiny的用户界面未显示

Question

因此，我从队友那里了解到，无需为显示应用程序的UI端而完成RShiny应用程序的服务器端。

这是我的一些代码：

ui <- dashboardPage(
dashboardHeader(title = "Enrolment Analytics"),
dashboardSidebar(sidebarMenu(

#can change tab names and icons here.
menuItem("Summary Tables", tabName = "Summary Tables", icon = icon("table")),
menuItem("Visualizations", tabName = "Visualizations", icon = icon("line-chart"))  

)
),

dashboardBody(
tabItems(
tabItem(tabName = "Summary Tables", 
        fluidRow(
          box(title = "Teaching Load ", status = "primary", solidHeader = TRUE,
              selectInput("courseCode1", "Course code: ", 
                          choices = as.list(unique(data1$discipline))), 
              numericInput("Month", "1 = January, 2 = February, ..., 12 = December", value = 6), 
              numericInput("Year", "2007, 2008, ..., 2017", value = 2007)
              ), 
          box(title = "Summary ", status = "primary", solidHeader = TRUE, 
              plotOutput("tl1"))
        ))
), 

tabItem(tabName = "Visualizations", 
        fluidRow(
          box(title = "Teaching Load", status = "primary", solidHeader = TRUE, 
              selectInput("courseCodeOne", "First discipline: ", 
                          choices = as.list(unique(data1$discipline))), 
              selectInput("courseCodeTwo", "Second discipline: ", 
                          choices = as.list(unique(data1$discipline))), 
              selectInput("courseCodeThree", "Third discipline: ", 
                          choices = as.list(unique(data1$discipline)))
              ), 
          box(title = "Teaching Load Graph", status = "primary", solidHeader = TRUE, 
              plotOutput("tl2"))
        ))
)
)

当我运行应用程序时，边栏显示可视化和摘要表，但是在服务器端，仅显示可视化框，而没有显示摘要表。

Answer 1

您的代码有两个问题：

1.） tabName不能包含空格（在帮助页面中不清楚）。

2.）您遇到了括号错误（第二个tabItem未包含在tabItem的括号中）。

如果您纠正了这两个错误，则用户界面工作正常：

ui <- dashboardPage(
  dashboardHeader(title = "Enrolment Analytics"),
  dashboardSidebar(sidebarMenu(

    #can change tab names and icons here.
    menuItem("Summary Tables", tabName = "SummaryTables", icon = icon("table")),
    menuItem("Visualizations", tabName = "Visualizations", icon = icon("line-chart"))  

  )
  ),

  dashboardBody(
    tabItems(
      tabItem(tabName = "SummaryTables", 
              fluidRow(
                box(title = "Teaching Load ", status = "primary", solidHeader = TRUE,
                    selectInput("courseCode1", "Course code: ", 
                                choices = 1:5), 
                    numericInput("Month", "1 = January, 2 = February, ..., 12 = December", value = 6), 
                    numericInput("Year", "2007, 2008, ..., 2017", value = 2007)
                ), 
                box(title = "Summary ", status = "primary", solidHeader = TRUE, 
                    plotOutput("tl1"))
              )), 
    ## BRACKET ERROR WAS HERE

    tabItem(tabName = "Visualizations", 
            fluidRow(
              box(title = "Teaching Load", status = "primary", solidHeader = TRUE, 
                  selectInput("courseCodeOne", "First discipline: ", 
                              choices = 1:10), 
                  selectInput("courseCodeTwo", "Second discipline: ", 
                              choices = 1:10), 
                  selectInput("courseCodeThree", "Third discipline: ", 
                              choices = 1:10)
              ), 
              box(title = "Teaching Load Graph", status = "primary", solidHeader = TRUE, 
                  plotOutput("tl2"))
            ) 
    )
  ))
)
server = function(input, output, session){

}
shinyApp(ui, server)