prepInputsStandAgeMap writeTo not working

PredictiveEcology · Jan 8, 2025 · c9afe44 · c9afe44
1 parent 4605e54
commit c9afe44
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/prepInputObjects.R b/R/prepInputObjects.R
@@ -485,7 +485,7 @@ prepInputsStandAgeMap <- function(..., ageURL = NULL,
     maskWithRTM = maskWithRTM,
     method = method,
     datatype = datatype,
-    writeTo = writeTo,
+    # writeTo = writeTo, # no point here ... as it is removed later
     destinationPath = destinationPath,
     url = ageURL,
     fun = ageFun,
@@ -519,6 +519,9 @@ prepInputsStandAgeMap <- function(..., ageURL = NULL,
   }
 
   attr(standAgeMap, "imputedPixID") <- imputedPixID
+  if (!is.null(writeTo)) {
+    standAgeMap <- writeTo(standAgeMap, writeTo)
+  }
   return(standAgeMap)
 }