malformed URL? on Mac?

PredictiveEcology · Aug 6, 2024 · 7c723de · 7c723de
1 parent baebee3
commit 7c723de
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/Require-helpers.R b/R/Require-helpers.R
@@ -1716,7 +1716,11 @@ rmEmptyFiles <- function(files, minSize = 100) {
 
 
 GETWauthThenNonAuth <- function(url, token, verbose = getOption("Require.verbose")) {
-  a <- httr::GET(url, httr::add_headers(Authorization = token))
+  if (is.null(token)) {
+    a <- httr::GET(url)
+  } else {
+    a <- httr::GET(url, httr::add_headers(Authorization = token))
+  }
   if (grepl("Bad credentials", a) || grepl("404", httr::http_status(a)$message)) {
     if (grepl("Bad credentials", a)) messageVerbose(red("Git credentials do not work for this url: ", url,
                                              "\nAre they expired?"), verbose = verbose)