r - 在R地理编码功能中处理500个内部服务器错误

Question

我已经使用googleway包编写了一个对地址进行地址解析的函数，不幸的是，当它遇到500个内部服务器错误时崩溃。功能如下:

rugeocoder.fun <- function(addr){
              require(googleway)
              output <- vector("list", length=length(addr))
              for(i in 1:length(addr)){
                  output[[i]] <- google_geocode(address=addr[i], key="myapikey", language="ru", simplify=T)
                  print(i)
                }
              return(output)
              }

(是的，我知道我可以使用lapply而不是函数内部的循环来完成此操作，但是我喜欢将计数器打印到控制台上。)

自然地，由于相对简单的错误，这导致我失去了到目前为止的所有输出。我可以做些什么来拥有该功能:a)保存输出到该点，以便我可以在该地址处重新启动它，或b)继续尝试直到服务器错误消失(我想可能是500错误)临时？)。

Answer 1

根据注释中的建议，当tryCatch()遇到错误时，我能够防止循环崩溃:

rugeocoder.fun <- function(addr){
              require(googleway)
              output <- vector("list", length=length(addr))
              tryCatch({
                for(i in 1:length(addr)){
                  output[[i]] <- google_geocode(address=addr[i], key="myapikey", language="ru", simplify=T)
                  print(i)

                }},error=function(e) output[[i]] <- "Error: reattempt")
              return(output)
              }