Question

我正在尝试创建一个R Shiny页面，该页面显示美国的预期寿命图以及用户要选择的其他国家/地区。代码运行并且Shiny达到了我的预期，但是当我关闭它时，R显示以下两个错误：

听http://xxx.xxx.xxx.xxx:xxxx

无中断/下一个循环，跳至最高级别

无中断/下一个循环，跳至最高级别

我发现了有关R中此错误的其他问题，但他们使用的是 for 循环，但我没有使用（至少没有意识地，我认为Shiny的反应式循环了功能？）

为什么会显示这两个错误？

谢谢！

下面是我的代码：

library(shiny)
library(tidyverse)
library(dslabs)
data(gapminder)

countries <- unique(gapminder$country)

# Define UI
ui <- fluidPage(
    sidebarLayout(
      sidebarPanel(
        selectInput("country", label= "Select a country to compare to", choices = countries,
selected = "Spain", multiple = F)
      ),
      mainPanel(plotOutput(outputId = "linegraph")
      )
    )
)

# Define server
server <- function(input, output) {
  output$linegraph <- renderPlot({ggplot(aes(x = year, y = life_expectancy),
              data = filter(gapminder, country == "United States")) +
      scale_y_continuous(breaks = seq(40, 85, 5), limits = c(40, 85)) +
      geom_line(color = "black") +
      ggtitle("US life expectancy") +
      geom_line( color = "blue", data = filter(gapminder, country == input$country))
  })
}


shinyApp(ui = ui, server = server)

奖金问题：是否有一种简便的方法来调试Shiny代码？我怎么知道代码中的哪一行正在产生错误？

R闪亮：收到错误消息：“无中断/下一个循环，跳至最高级别”

0 个答案: