don't delete CA_forest_VLCE2 raster

fix #110

DESCRIPTION

@@ -8,8 +8,8 @@ Description: Utilities for 'LandR' suite of landscape simulation models.
 URL: 
     https://landr.predictiveecology.org,
     https://github.com/PredictiveEcology/LandR
-Date: 2024-11-13
-Version: 1.1.5.9026
+Date: 2024-12-22
+Version: 1.1.5.9027
 Authors@R: c(
     person("Eliot J B", "McIntire", email = "[email protected]",
            role = c("aut", "cre"), comment = c(ORCID = "0000-0002-6914-8316")),

NEWS.md

@@ -6,6 +6,7 @@
 - `columnsForPixelGroups` is now a function (i.e., use `columnsForPixelGroups()` for consistent `pixelGroup` definitions);
 - new function `cohortDefinitionCols()` to ensure consistent cohort definitions;
 - new function `lccMapGenerator()` to calculate landcover classes from `cohortData` and `pixelGroupMap`;
+- don't delete `CA_forest_VLCE2` raster in `prepInputs_NTEMS_LCC_FAO()` (#110);
 
 # LandR 1.1.5
 

R/prepInputs_NTEMS.R

@@ -36,10 +36,11 @@ prepInputs_NTEMS_LCC_FAO <- function(year = 2010, disturbedCode = 1, resampleMet
   lccURL <- paste0("https://opendata.nfis.org/downloads/forest_change/CA_forest_VLCE2_", year, ".zip")
   lccTF <- paste0("CA_forest_VLCE2_", year, ".tif")
   lcc <- prepInputs(url = lccURL, targetFile = lccTF, method = resampleMethod, ...)
-  ## unlink this file as it is 24 GB
-  toUnlink <- ifelse(is.null(dots$destinationPath), lccTF,
-                     file.path(dots$destinationPath, lccTF))
-  unlink(toUnlink)
+  ## 2024-12: see #110; don't delete CA_forest_VLCE2 raster even though it's 24GB
+  ## deleteing it results in redownload every time and breaks parallel sims (race condition)
+  # toUnlink <- ifelse(is.null(dots$destinationPath), lccTF,
+  #                    file.path(dots$destinationPath, lccTF))
+  # unlink(toUnlink)
 
   ## 1 is forest, 2 is disturbed forest
   ## do not pass dots, or the filename is passed and is overwritten