错误：无法打开连接

Question

我是Shiny R的新手并且成功创建了我的第一个应用程序（YAY！）！然后我尝试部署它（或发布它）并在它打开的网页上得到以下错误消息（它在R studio中正常工作，似乎部署好了）。我去发布时只检查了app.R框。

错误：无法打开连接。

我已经在这里和其他地方看过其他答案，但我要么使用了解决方案而且他们没有工作或者没有理解答案（我对R和Shiny R很新）。我在我的智慧结束，并且真的想要让这个起来并运行，因为我喜欢Shiny的能力。 谁能帮忙？ 我使用的代码是;

require(shiny)
meanweights <- read.csv("meanweights.csv")

ui <- fluidPage(
  selectInput(inputId = "statesel",
              label="Choose a state",
              choices = sort(unique(meanweights$state)),
              selected = "VIC",
              multiple = FALSE),
  plotOutput("lineplot")
)


server <- function(input, output) {
  output$lineplot <- renderPlot({
    read.csv("meanweights.csv") %>% 
      filter(state == input$statesel) %>% 
      ggplot(aes(day, mean_weight, color=property_type))+
      geom_line()+theme_bw(base_size = 14)
  })
}

shinyApp(ui = ui, server = server)

谢谢你的时间。