Merge pull request #32 from getwilds/lint-fix

Fixing linting warnings identified by GitHub Action

R/auth.R

@@ -44,5 +44,7 @@ proof_authenticate <- function(username, password) {
     req_timeout(proofr_env$timeout_sec) |>
     req_perform() |>
     resp_body_json() |>
-    {\(x) x$token}()
+    {
+      \(x) x$token
+    }()
 }

R/info.R

@@ -5,13 +5,12 @@
 #' - `branch` (character): git branch of API
 #' - `commit_sha` (character): SHA of the git commit of the API
 #' - `short_commit_sha` (character): the first eight characters of `commit_sha`
-#' - `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
+#' - `commit_message` (character): the commit message of API's most recent commit
+#' - `tag` (character): tag of most recent commit (or release version if no hyphen)
 proof_info <- function() {
   request(make_url("info")) |>
     req_timeout(proofr_env$timeout_sec) |>
     req_error(body = error_body) |>
     req_perform() |>
     resp_body_json()
 }
-

tests/testthat/helper-stubs.R

@@ -58,7 +58,7 @@ response_authenticate_success <- list(
   token_creation_date = NULL
 )
 
-response_info_success <- list (
+response_info_success <- list(
   branch = "main",
   commit_sha = "c4b85200632c2f9bd5e8173179208c3b32c7db7a",
   short_commit_sha = "c4b85200",

tests/testthat/test-proof_cancel.R

@@ -6,7 +6,6 @@ test_that("proof_cancel - success", {
       status = 200L,
       headers = list("Content-type" = "application/json")
     )
-  # stub_registry()
 
   enable(quiet = TRUE)
 

tests/testthat/test-proof_header.R

@@ -10,6 +10,6 @@ test_that("proof_header", {
   # If PROOF_TOKEN env var set, fxn can find it
   withr::with_envvar(c("PROOF_TOKEN" = "notarealtoken"), {
     expect_match(proof_header(request(""))$headers[[1]],
-      "notarealtoken")
+                 "notarealtoken")
   })
 })