swap info fxn over to use httr2

getwilds · Aug 9, 2024 · 0d8f6ea · 0d8f6ea
1 parent ce8f9c3
commit 0d8f6ea
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 6 deletions.
diff --git a/R/info.R b/R/info.R
@@ -9,11 +9,10 @@
 #' - `commit_message` (character): the commit message of the API's most recent commit
 #' - `tag` (character): tag of most recent commit; if this does not contain a hyphen, it's a release version
 proof_info <- function() {
-  response <- GET(
-    make_url("info"),
-    timeout(proofr_env$timeout_sec)
-  )
-  stop_for_message(response)
-  content(response, as = "parsed")
+  request(make_url("info")) |>
+    req_timeout(proofr_env$timeout_sec) |>
+    req_error(body = error_body) |>
+    req_perform() |>
+    resp_body_json()
 }
 
diff --git a/tests/testthat/test-proof_info.R b/tests/testthat/test-proof_info.R
@@ -14,6 +14,11 @@ test_that("proof_info - success", {
 
   expect_type(info_res, "list")
 
+  # also works w/o token as it's not needed for this fxn
+  info_res_wo_token <- proof_info()
+
+  expect_type(info_res_wo_token, "list")
+
 
   stub_registry_clear()
   disable(quiet = TRUE)