ajouter un temps dattent qui augment avec le nombre d'erreur

R/request.R

@@ -37,7 +37,7 @@ request_api <- function(url_with_params,headers,code,retry_limit=5,timesleep=20)
             print(url_with_params)
             print(paste0("retry #",retry_count,"/",retry_limit))
             retry_count <- retry_count + 1
-            Sys.sleep(timesleep) 
+            Sys.sleep(timesleep*(1+retry_count/retry_limit))
         }
     }
     if(!success) return(NULL)