Merge pull request #24 from annnvv/httr_retry

replace httr::GET() with httr::RETRY()
ropensci-archive · Apr 20, 2020 · 11e7139 · 11e7139
2 parents db65c28 + e1c9feb
commit 11e7139
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 6 deletions.
diff --git a/R/mt_dates.R b/R/mt_dates.R
@@ -97,9 +97,11 @@ mt_dates <- function(
   }
 
   # try to download the data
-  json_dates <- httr::GET(url = url,
-                          query = query,
-                          httr::write_memory())
+  json_dates <- httr::RETRY(verb = "GET",
+                            url = url,
+                            query = query,
+                            httr::write_memory(),
+                            terminate_on = c(403, 404))
 
   # trap errors on download, return a general error statement
   # with the most common causes.

diff --git a/R/mt_subset.R b/R/mt_subset.R
@@ -201,9 +201,11 @@ mt_subset <- function(
                     "kmLeftRight" = round(km_lr))
 
       # try to download the data
-      json_chunk <- httr::GET(url = url,
-                           query = query,
-                           httr::write_memory())
+      json_chunk <- httr::RETRY(verb = "GET", 
+                                url = url,
+                                query = query,
+                                httr::write_memory(),
+                                terminate_on = c(403, 404))
 
       # trap errors on download, return a detailed
       # API error statement