CBMsourcePrepInputs uses preProcess instead of prepInputs; download.file mode = "wb"

Author: suz-estella

DESCRIPTION

@@ -5,7 +5,7 @@ Description: Implementation of several components of the Carbon Budget Model of
     Canadian Forest Service (v3).
 URL:
     https://github.com/PredictiveEcology/CBMutils
-Version: 2.5.4.9000
+Version: 2.5.4.9001
 Authors@R: c(
     person("Céline",    "Boisvenue", email = "celine.boisvenue@nrcan-rncan.gc.ca", role = c("aut", "cre")),
     person("Alex M",    "Chubaty",   email = "achubaty@for-cast.ca",               role = c("aut"), comment = c(ORCID = "0000-0001-7146-8135")),

R/Data-CBMsources.R

@@ -59,17 +59,19 @@ CBMsourcePrepInputs <- function(sourceID,
   srcUq <- unique(srcItems[, .SD, .SDcols = c("targetFile", "url")])
   srcUq$path <- sapply(1:nrow(srcUq), function(i){
 
-    reproducible::prepInputs(
+    reproducible::preProcess(
       destinationPath = srcInfo$destinationPath,
       url             = srcUq[i,]$url,
       targetFile      = srcUq[i,]$targetFile,
       filename1       = if (tools::file_ext(srcUq[i,]$url) == "zip" &
                             tools::file_ext(srcUq[i,]$targetFile) != "zip") basename(srcUq[i,]$url),
       archive         = if (tools::file_ext(srcUq[i,]$targetFile) %in% c("zip", "tar", "rar")) NA,
+      mode            = "wb",
       alsoExtract     = "similar",
       fun             = NA,
       useCache        = FALSE,
-      ...) |> as.character()
+      ...
+    )$targetFilePath
   })
 
   # Read source