Merge pull request #23 from conbench/sam/add-retries

Add retries to all API calls

Author: boshek

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: conbenchcoms
 Title: An API wrapper for conbench communications
-Version: 0.0.9
+Version: 0.0.10
 Authors@R: c(
     person("Jonathan", "Keane", , "[email protected]", role = c("aut", "ctb"),
            comment = c(ORCID = "0000-0001-7087-9776")),

NAMESPACE

@@ -4,6 +4,7 @@ export(benchmark_results)
 export(benchmarks)
 export(compare_results)
 export(compare_runs)
+export(conbench_info)
 export(conbench_perform)
 export(conbench_request)
 export(hardware)

NEWS.md

@@ -1,3 +1,6 @@
+# combenchcoms 0.0.10
+* Add httr2's baked in retry strategy to all api calls
+
 # conbenchcoms 0.0.9
 * Remove `compare` function
 * Add `compare_results` function (similar to old `compare` but only works for comparing benchmark results)

R/conbench_info.R

@@ -0,0 +1,16 @@
+#' Get a list of conbench info
+#'
+#' @return the response
+#' @export
+
+conbench_info <- function() {
+  req <- req_url_path_append(conbench_request(), "ping")
+
+  resp <- conbench_perform(req)
+
+  dat <- resp_body_json(resp, simplifyVector = TRUE, flatten = TRUE)
+
+  dat[["date"]]  <- NULL
+
+  dat
+}

R/session.R

@@ -16,6 +16,7 @@ conbench_perform <- function(data, ...) {
   resp <- data |>
     req_error(is_error = function(resp) FALSE) |>
     req_headers(cookie = .conbench_session$cookie) |>
+    req_retry(max_tries = 5) |>
     req_perform(...)
 
   # Authenticate if we need to
@@ -25,6 +26,7 @@ conbench_perform <- function(data, ...) {
   resp <- data |>
     req_error(body = error_body) |>
     req_headers(cookie = .conbench_session$cookie) |>
+    req_retry(max_tries = 5) |>
     req_perform(...)
 
   resp

R/zzz.R

@@ -0,0 +1,19 @@
+.onAttach <- function(libname, pkgname) {
+  if (interactive()) {
+    load_msg <- tryCatch(
+      {
+        msg <- conbench_info()
+        packageStartupMessage(
+            paste0(
+              "Conbench server information\n",
+              paste0(" - ", names(msg), ": ", msg, collapse = "\n")
+            ),
+            "\n"
+          )
+      },
+      error = function(e) {
+        packageStartupMessage("No available conbench info")
+      }
+    )
+  }
+}