Add backoff to the first stage

ropensci · Dec 10, 2020 · 32e92b9 · 32e92b9
1 parent a4217cb
commit 32e92b9
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/hit_api.R b/R/hit_api.R
@@ -167,7 +167,11 @@ hit_national_map_api <- function(bbox,
     if (!is.null(body$error) &&
       counter < 15 &&
       (is.null(body$href) && service %in% method$href)) {
-      Sys.sleep(1)
+      backoff <- stats::runif(n = 1, min = 0, max = floor(c(
+        2^counter - 1,
+        30
+      )))
+      Sys.sleep(backoff)
       get_href(counter = counter + 1)
     } else {
       return(body)