rate limit requests client-side to 30/minute

DESCRIPTION

@@ -51,6 +51,7 @@ Imports:
     crul,
     lubridate,
     jsonlite,
+    ratelimitr,
     readr,
     tibble
 RoxygenNote: 7.1.1.9001
@@ -62,7 +63,8 @@ Suggests:
     knitr,
     rmarkdown,
     testthat,
-    spelling
+    spelling,
+    vcr
 VignetteBuilder: knitr
 X-schema.org-applicationCategory: Tools
 X-schema.org-keywords: NASA, meteorological-data, weather, global, weather,

R/get_power.R

@@ -6,7 +6,9 @@
 #'   object.  All options offered by the official \acronym{POWER} \acronym{API}
 #'   are supported.  Requests are formed to submit one request per point.  There
 #'   is no need to make synchronous requests for multiple parameters for a
-#'   single point or regional request.
+#'   single point or regional request.  Requests are limited to 30 unique
+#'   requests per 60 seconds.  \CRANpkg{nasapower} attempts to enforce this
+#'   client-side.
 #'
 #' @param community A character vector providing community name: \dQuote{ag},
 #'   \dQuote{re} or \dQuote{sb}.  See argument details for more.
@@ -311,9 +313,11 @@ get_power <- function(community,
   )
 
   response <-
-    .send_query(.query_list = query_list,
-                .temporal_api = temporal_api,
-                .url = power_url)
+    .rate_limited_query(.query_list = query_list,
+                        .temporal_api = temporal_api,
+                        .url = power_url)
+
+  response$raise_for_status()
 
   # create meta object
   power_data <- readr::read_lines(response$parse("UTF8"))

R/internal_functions.R

@@ -99,3 +99,8 @@
   }) # nocov end
   return(response)
 }
+
+# create a rate-limited query function that respects the POWER API limits
+.rate_limited_query <-
+  ratelimitr::limit_rate(.send_query, ratelimitr::rate(n = 30,
+                                                       period = 60))