diff --git a/R/request.R b/R/request.R index 572b927..c3167d4 100644 --- a/R/request.R +++ b/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)