move GET_retry method from ghcnd.R file to zzz.R

ropensci · Jun 8, 2020 · a2c840d · a2c840d
1 parent b2f85d6
commit a2c840d
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 17 deletions.
diff --git a/R/ghcnd.R b/R/ghcnd.R
@@ -193,23 +193,6 @@ strex <- function(x) str_extract_(x, "[0-9]+")
 as_tc <- function(x) textConnection(enc2utf8(rawToChar(x)))
 as_tc_p <- function(x) textConnection(x$parse("latin1"))
 
-GET_retry <- function(url, ..., times = 3) {
-  cliret <- crul::HttpClient$new(url)
-  res <- suppressWarnings(cliret$get(...))
-  if (res$status_code > 226) {
-    message("Request failed - Retrying")
-    stat <- 500
-    i <- 0
-    while (stat > 226 && i <= times) {
-      i <- i + 1
-      res <- suppressWarnings(cliret$get(...))
-      stat <- res$status_code
-    }
-    if (res$status_code > 226) stop("Request failed, try again", call. = FALSE)
-  }
-  return(res)
-}
-
 ghcnd_GET <- function(stationid, ...){
   ghcnd_cache$mkdir()
   fp <- ghcnd_local(stationid)

diff --git a/R/zzz.r b/R/zzz.r
@@ -219,3 +219,20 @@ assert <- function(x, y) {
     }
   }
 }
+
+GET_retry <- function(url, ..., times = 3) {
+  cliret <- crul::HttpClient$new(url)
+  res <- suppressWarnings(cliret$get(...))
+  if (res$status_code > 226) {
+    message("Request failed - Retrying")
+    stat <- 500
+    i <- 0
+    while (stat > 226 && i <= times) {
+      i <- i + 1
+      res <- suppressWarnings(cliret$get(...))
+      stat <- res$status_code
+    }
+    if (res$status_code > 226) stop("Request failed, try again", call. = FALSE)
+  }
+  return(res)
+}