R SHINING:Error Navbarpage参数缺失，没有默认值，SHINING R

我对Shinny R相当陌生，我对它的格式感到非常困扰。我不知道如何组织它。我觉得我已经检查了所有的东西，但是我不知道我遗漏了什么。它一直给我ErrorNavbarPage参数丢失，没有默认值！我的代码哪里错了？多谢各位

ui <- fluidPage(
  navbarPage(title = "Demo Bar",
             tabPanel("Percent college",
                      sidebarLayout(
                        sidebarPanel(
                          selectInput(inputId = "state", label = "Select a state:",
                                      choices = unique(midwest$state),
                                      selected = "IL",
                                      multiple = TRUE),
                          hr(),
                          helpText("Data From Midwest data frame"),
                          textInput(inputId = "title", label = "Write a title!", value = "Midwest scatter plot comparison")
                        ),
                        mainPanel(
                          plotlyOutput(outputId = "scatterplot")
                        ),
                      ),
             ),
             tabPanel("Data Page",
                      sidebarLayout(
                        sidebarPanel(
                          sliderInput(
                            inputId = "area_choice",
                            label = "Range of Area",
                            min = area_range[1],
                            max = area_range[2],
                            value = area_range
                          ),
                        ),
                          mainPanel(
                            plotOutput("plot")
                          ),
                      ),
             ),
  ),
)

---

ui不带额外逗号的工作代码：

ui <- fluidPage(
  navbarPage(
    title = "Demo Bar",
             tabPanel("Percent college",
                      sidebarLayout(
                        sidebarPanel(
                          selectInput(inputId = "state", label = "Select a state:",
                                      choices = unique(midwest$state),
                                      selected = "IL",
                                      multiple = TRUE),
                          hr(),
                          helpText("Data From Midwest data frame"),
                          textInput(inputId = "title", label = "Write a title!", value = "Midwest scatter plot comparison")
                        ),
                        mainPanel(
                          plotOutput("plot1")
                          #plotlyOutput(outputId = "scatterplot")
                        ),
                      ),
             ),
             tabPanel("Data Page",
                      sidebarLayout(
                        sidebarPanel(
                          sliderInput(
                            inputId = "area_choice",
                            label = "Range of Area",
                            min = 1, #area_range[1],
                            max = 10, #area_range[2],
                            value = 5 #area_range
                          )
                        ),
                        mainPanel(
                          plotOutput("plot2")
                        )
                      )
             )
  )
)

server <- function(input, output, session) {
    output$plot1 <- renderPlot(plot(cars))
    output$plot2 <- renderPlot(plot(pressure))
}

shinyApp(ui, server)

ui不带额外逗号的工作代码：

ui <- fluidPage(
  navbarPage(
    title = "Demo Bar",
             tabPanel("Percent college",
                      sidebarLayout(
                        sidebarPanel(
                          selectInput(inputId = "state", label = "Select a state:",
                                      choices = unique(midwest$state),
                                      selected = "IL",
                                      multiple = TRUE),
                          hr(),
                          helpText("Data From Midwest data frame"),
                          textInput(inputId = "title", label = "Write a title!", value = "Midwest scatter plot comparison")
                        ),
                        mainPanel(
                          plotOutput("plot1")
                          #plotlyOutput(outputId = "scatterplot")
                        ),
                      ),
             ),
             tabPanel("Data Page",
                      sidebarLayout(
                        sidebarPanel(
                          sliderInput(
                            inputId = "area_choice",
                            label = "Range of Area",
                            min = 1, #area_range[1],
                            max = 10, #area_range[2],
                            value = 5 #area_range
                          )
                        ),
                        mainPanel(
                          plotOutput("plot2")
                        )
                      )
             )
  )
)

server <- function(input, output, session) {
    output$plot1 <- renderPlot(plot(cars))
    output$plot2 <- renderPlot(plot(pressure))
}

shinyApp(ui, server)

ui您有许多额外的逗号。你需要删除最后一个元素，“
”，对不起，我真的不明白你的意思。您能指出哪里可能有多余的逗号吗？请删除
主面板（plotOutput（“plot”））
之后的所有逗号，即
ui
中的最后四个逗号是不必要的。上帝保佑您！你真的很有帮助！现在我知道我有太多多余的逗号了！哈哈哈，这些东西到处都是！你有很多额外的逗号。你需要删除最后一个元素，“
”，对不起，我真的不明白你的意思。您能指出哪里可能有多余的逗号吗？请删除
主面板（plotOutput（“plot”））
之后的所有逗号，即
ui
中的最后四个逗号是不必要的。上帝保佑您！你真的很有帮助！现在我知道我有太多多余的逗号了！哈哈哈，这些东西到处都是！非常感谢。你帮了很多忙！非常感谢。你帮了很多忙！