replaced single-shot HTTP requests with RETRY()

NAMESPACE

@@ -16,11 +16,7 @@ export(gh_tree_remote)
 export(gh_whoami)
 importFrom(cli,cli_status)
 importFrom(cli,cli_status_update)
-importFrom(httr,DELETE)
-importFrom(httr,GET)
-importFrom(httr,PATCH)
-importFrom(httr,POST)
-importFrom(httr,PUT)
+importFrom(httr,RETRY)
 importFrom(httr,add_headers)
 importFrom(httr,content)
 importFrom(httr,headers)

R/gh-package.R

@@ -5,8 +5,7 @@
 # The following block is used by usethis to automatically manage
 # roxygen namespace tags. Modify with care!
 ## usethis namespace: start
-#' @importFrom httr content add_headers headers status_code http_type GET POST
-#'   PATCH PUT DELETE
+#' @importFrom httr content add_headers headers status_code http_type RETRY
 #' @importFrom jsonlite fromJSON toJSON
 #' @importFrom utils URLencode capture.output
 #' @importFrom cli cli_status cli_status_update

R/gh.R

@@ -237,13 +237,12 @@ gh_response_length <- function(res) {
 }
 
 gh_make_request <- function(x) {
+  valid_http_methods <- c("GET", "POST", "PATCH", "PUT", "DELETE")
+  http_method <- x$method
+  if (is.null(http_method) || !(http_method %in% valid_http_methods)) throw(new_error("Unknown HTTP verb"))
 
-  method_fun <- list("GET" = GET, "POST" = POST, "PATCH" = PATCH,
-                     "PUT" = PUT, "DELETE" = DELETE)[[x$method]]
-  if (is.null(method_fun)) throw(new_error("Unknown HTTP verb"))
-
-  raw <- do.call(method_fun,
-                 compact(list(url = x$url, query = x$query, body = x$body,
-                              add_headers(x$headers), x$dest)))
+  raw <- do.call(RETRY,
+                 compact(list(verb = http_method, url = x$url, query = x$query, body = x$body,
+                              add_headers(x$headers), x$dest, terminate_on = c(400, 401, 403, 404))))
   raw
 }