If status is 403 on getSHAfromGitHub after .downloadFileMaster: stop

DESCRIPTION

@@ -15,8 +15,8 @@ Description: A single key function, 'Require' that makes rerun-tolerant
 URL: 
     https://Require.predictiveecology.org,
     https://github.com/PredictiveEcology/Require
-Date: 2024-09-27
-Version: 1.0.1.9001
+Date: 2024-10-23
+Version: 1.0.1.9002
 Authors@R: c(
     person(given = "Eliot J B",
            family = "McIntire",

NEWS.md

@@ -5,6 +5,7 @@ version 1.0.2
 
 ## Bugfixes
 * minor
+* better fails when status is 403 for package dependency checking
 * `updatePackages` had 2 minor bugs that prevented some mixtures of necessary updates from being correctly identified.
 
 version 1.0.1

R/Require-helpers.R

@@ -996,8 +996,10 @@ getSHAfromGitHub <- function(acct, repo, br, verbose = getOption("Require.verbos
     fetf <- file.exists(tf)
     gitRefs <- if (fetf) try(suppressWarnings(readLines(tf)), silent = TRUE) else ""
     isNotFound <-  ((NROW(gitRefs) <= 5) && any(grepl("Not Found", gitRefs) ) ||
-      (any(grepl("cannot open URL", gitRefs))) || identical(gitRefs, ""))
-    if (any(grepl("Bad credentials", gitRefs)) || isNotFound) {#} || notFound) {
+      (any(grepl("cannot open URL", gitRefs))) || identical(gitRefs, "") ||
+        any(grepl("status.+403", gitRefs)))
+
+    if (any(grepl("Bad credentials", gitRefs)) || isNotFound) {
       if (fetf) {
         unlink(tf)
       }
@@ -1006,10 +1008,9 @@ getSHAfromGitHub <- function(acct, repo, br, verbose = getOption("Require.verbos
         mess <- character()
         if (is.null(token)) {
           mess <- "GitHub repository not accessible does it need authentication? "
+          stop(paste0(mess, .txtDidYouSpell))
         }
-        stop(paste0(mess, .txtDidYouSpell))
       }
-
       stop(gitRefs)
     }