do not insert gh_token header on gh workflow runs

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: githist
 Title: Code analyses traced along the 'git' history of a package
-Version: 0.1.0.047
+Version: 0.1.0.048
 Authors@R: 
     person("Mark", "Padgham", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))

R/gh-queries.R

@@ -36,11 +36,14 @@ github_repo_workflow_query <- function (org = NULL, repo = NULL, n = 30L) {
     u_repo <- paste0 (u_base, org, "/", repo, "/")
     u_wf <- paste0 (u_repo, "actions/runs?per_page=", n)
 
-    tok <- get_gh_token ()
-    headers <- list (Authorization = paste0 ("Bearer ", tok))
+    req <- httr2::request (u_wf)
+
+    if (!nzchar (Sys.getenv ("GITHUB_WORKFLOW"))) {
+        tok <- get_gh_token ()
+        headers <- list (Authorization = paste0 ("Bearer ", tok))
+        req <- httr2::req_headers (req, "Authorization" = headers)
+    }
 
-    req <- httr2::request (u_wf) |>
-        httr2::req_headers ("Authorization" = headers)
     resp <- httr2::req_perform (req)
     httr2::resp_check_status (resp)
 

codemeta.json

@@ -8,7 +8,7 @@
   "codeRepository": "https://github.com/ropensci-review-tools/githist",
   "issueTracker": "https://github.com/ropensci-review-tools/githist/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.1.0.047",
+  "version": "0.1.0.048",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",