Gestion de 500 erreur interne du serveur dans la fonction de géocodage R

Question

J'ai écrit une fonction en utilisant le paquet googleway pour géocoder des adresses, qui malheureusement se bloque quand elle rencontre une erreur interne du serveur 500. La fonction est la suivante:

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

(. Oui, je sais que je pourrais y arriver en utilisant lapply au lieu d'une boucle dans une fonction, mais j'aime avoir le compteur d'impression à la console)

Naturellement, cela me fait perdre toute la sortie jusqu'à ce point à cause d'une erreur relativement simple. Y at-il quelque chose que je peux faire pour avoir la fonction: a) enregistrer la sortie jusqu'à ce point, donc je peux le redémarrer à cette adresse ou b) continuer à essayer jusqu'à ce que l'erreur du serveur disparaisse (j'imagine temporaire?).

Answer 1

par les suggestions dans les commentaires, j'ai pu garder la boucle de tomber en panne quand il rencontre une erreur avec 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) 
       }