From e1c9febba583a7b426929d2adec67d38ebc353a9 Mon Sep 17 00:00:00 2001
From: annnvv <13822260+annnvv@users.noreply.github.com>
Date: Sun, 19 Apr 2020 15:01:00 -0400
Subject: [PATCH] replace httr::GET() with httr::RETRY()

---
 R/mt_dates.R  | 8 +++++---
 R/mt_subset.R | 8 +++++---
 2 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/R/mt_dates.R b/R/mt_dates.R
index 2272327..64597cb 100644
--- 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
index b117a81..daf527b 100644
--- 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