R Shiny: получение ошибки «нет цикла для перерыва / следующего, прыжки на верхний уровень»

Question

Я пытаюсь создать страницу R Shiny, на которой показан график ожидаемой продолжительности жизни для США и дополнительной страны, которую пользователь выберет. Код выполняется, и Shiny делает то, что я ожидал, но когда я закрываю его, R показывает следующие две ошибки:

Прослушивание http://xxx.xxx.xxx.xxx:xxxx

без цикла для перерыва / следующего,переход на верхний уровень

без цикла перерыв / следующий переход на верхний уровень

Я нашел другие вопросы об этой ошибке в R, но они использовали для цикла , который я не использую (по крайней мере, сознательно, я думаю, у 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? Как я могу узнать, какая строка в моем коде вызывает ошибку?