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）サーバーエラーが消えるまで試し続けます。一時的？）。エラー条件を処理するための

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) 
       } 

Answer 1

は、私はクラッシュからのループを維持することができました。