NA NA NA NA NA problem fixed

PredictiveEcology · Dec 4, 2023 · caf1603 · caf1603
1 parent b4e16bb
commit caf1603
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/preProcess.R b/R/preProcess.R
@@ -570,7 +570,7 @@ preProcess <- function(targetFile = NULL, url = NULL, archive = NULL, alsoExtrac
           from <- filesExtr[whFilesExtrInIP]
           to <- makeAbsolute(makeRelative(from, destinationPath), destinationPathUser)
           if (!isTRUE(all(from %in% to))) {
-            messagePrepInputs("   ...using file in getOption('reproducible.inputPaths')...",
+            messagePrepInputs("   ...using file(s) in getOption('reproducible.inputPaths')...",
                               verbose = verbose)
           }
           outHLC <- hardLinkOrCopy(from, to, verbose = verbose - 1)
@@ -746,7 +746,7 @@ preProcess <- function(targetFile = NULL, url = NULL, archive = NULL, alsoExtrac
   failStop <- FALSE
   if (is.null(targetFilePath)) {
     failStop <- TRUE
-  } else if (isTRUE(is.na(targetFilePath))) { # this must come before next; but no need to change failStop
+  } else if (isTRUE(all(is.na(targetFilePath)))) { # this must come before next; but no need to change failStop
     # failStop <- FALSE
   } else if (!isTRUE(file.exists(targetFilePath))) {
     failStop <- TRUE