处理连接错误 - 尝试连接直到连接

Question

在我的代码中，有一个循环，在每个实例连接到一个网站并使用readLines获取源代码。让我们使用简化的代码，它可以节省源代码中的行数。矢量address也包含网站的URL。我们得到了：

output <- c()
for(i in 1:100){
   website <- readLines(address[i])
   output[i] <- length(website)
}

我的代码中的循环通常运行几个小时，我不时遇到一些互联网连接问题。因此，如果连接到特定网站时出现问题，我想重复连接试验，直到成功。

如果我使用tryCatch，则错误不会停止代码的执行，但会忽略特定网站的数据。我想要的是尝试连接直到连接。您是否有任何建议如何修改以下代码以获得该代码？

output <- c()
for(i in 1:100){
   tryCatch({
      website <- readLines(address[i])
      output[i] <- length(website)
   })
}