getForm：出错时重试连接

Question

对于网络抓取项目，我经常在特定网站上提出请求。有时连接会因错误而超时，我希望它重试而不是错误输出。我已经写出了下面的代码，以便继续尝试，但我认为它不起作用，因为我仍然错误。

url = "www.google.com"
while(true){
   withRestarts(tryCatch(
       sourcecode <- getForm(urls[n]),
       finally = Sys.sleep(2), 
       abort = function(){})
}

  

函数错误（type，msg，asError = TRUE）：无法连接   宿主

Answer 1

在试验后得到它：

while(length(sourcecode.ad) == 0){
      try({
        sourcecode <- getForm(urls[n])
        print(urls[n])
        Sys.sleep(1) 
      })
    }

尝试（）将允许在发生错误后继续。结合循环，它将继续重试。