From caf16035198e4856b126c2feef059f0a7e310cff Mon Sep 17 00:00:00 2001 From: Eliot McIntire Date: Mon, 4 Dec 2023 13:50:23 -0800 Subject: [PATCH] NA NA NA NA NA problem fixed --- R/preProcess.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/preProcess.R b/R/preProcess.R index 314752d40..2d215aedf 100644 --- 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