correct the google auth when don't have the json file

Author: Eliot McIntire

DESCRIPTION

@@ -19,7 +19,7 @@ URL:
     https://reproducible.predictiveecology.org,
     https://github.com/PredictiveEcology/reproducible
 Date: 2025-12-16
-Version: 2.1.3.9001
+Version: 2.1.3.9002
 Authors@R: 
     c(person(given = "Eliot J B",
              family = "McIntire",

tests/testthat/helper-allEqual.R

@@ -96,7 +96,12 @@ testInit <- function(libraries = character(), ask = FALSE, verbose, tmpFileExt =
         if (!nzchar(Sys.getenv("GOOGLEDRIVE_AUTH"))) {
           Sys.setenv("GOOGLEDRIVE_AUTH" = "~/genial-cycling-408722-788552a3ecac.json")
         }
-        googledrive::drive_auth(path = Sys.getenv("GOOGLEDRIVE_AUTH"))
+        gauthEnv <- Sys.getenv("GOOGLEDRIVE_AUTH")
+        if (nzchar(gauthEnv)) {
+          if (file.exists(gauthEnv))
+            googledrive::drive_auth(path = gauthEnv)
+        # googledrive::drive_auth(path = Sys.getenv("GOOGLEDRIVE_AUTH"))
+        }
       }
 
 

tests/testthat/setup.R

@@ -32,8 +32,10 @@ opts <- options(
 # Whatever files are on googledrive must be shared with this google service account
 if (isNamespaceLoaded("googledrive"))
   if ((!googledrive::drive_has_token())) {
-    if (nzchar(Sys.getenv("GOOGLEDRIVE_AUTH"))) {
-      googledrive::drive_auth(path = Sys.getenv("GOOGLEDRIVE_AUTH"))
+    gauthEnv <- Sys.getenv("GOOGLEDRIVE_AUTH")
+    if (nzchar(gauthEnv)) {
+      if (file.exists(gauthEnv))
+        googledrive::drive_auth(path = gauthEnv)
     }
   }