首页 > 解决方案 > 如何解决:“open.connection(x, "rb") 中的错误:已达到超时:"?

问题描述

我正在运行一个脚本,我需要它再尝试几秒钟来收集数据,但如果它仍然不能,我需要它在数据框中分配 NA 并将无效的链接返回给我。我正在使用循环来生成数据框。

LINKS <- LinksBR$LINKS_SP[1:39224]

DataSP <- matrix(nrow = 39244, ncol = 2)

DataSP <- data.frame(DataSP)

for (i in 1:length(LINKS)){
  try(
    DataSP[i,1] <- read_html(LINKS[i]) %>%
      html_node(".blabla > h1") %>%
      html_text()
  )
  try(
    Data[i,2] <- read_html(LINKS[i]) %>%
      html_node(".blabla") %>%
      html_text("span")
  )

}

Error in open.connection(x, "rb") : 
  Timeout was reached: Connection timed out after 10015 milliseconds

标签: rweb-scrapingtry-catch

解决方案


推荐阅读