List view
``` inSim <- SpaDES.project::setupProject( Restart = TRUE, # useGit= "eliotmcintire", paths = list(projectPath = "~/GitHub/FireSenseTesting", cachePath = "cache", outputPath = file.path("outputs", currentName) ), modules = c("PredictiveEcology/fireSense_dataPrepFit@lccFix", "PredictiveEcology/Biomass_borealDataPrep@development", "PredictiveEcology/Biomass_speciesData@development", "PredictiveEcology/fireSense_SpreadFit@lccFix", "PredictiveEcology/fireSense_IgnitionFit@biomassFuel", "PredictiveEcology/canClimateData@improveCache1" ), require = c("reproducible"), # for Cache used in pipe below options = options(gargle_oauth_email = "predictiveecology@gmail.com", spades.allowInitDuringSimInit = TRUE, repos = unique(c("predictiveecology.r-universe.dev", getOption("repos"))), spades.moduleCodeChecks = FALSE, Require.cloneFrom = Sys.getenv("R_LIBS_USER"), # 'reproducible.gdalwarp' = TRUE, reproducible.cacheSaveFormat = "qs", reproducible.useMemoise = TRUE, SpaDES.project.fast = FALSE, reproducible.shapefileRead = "terra::vect", spades.recoveryMode = 1, spades.useBox = FALSE, reproducible.useDBI = FALSE, reproducible.overwrite = TRUE, reproducible.inputPaths = "~/data", # reproducible.useCache = "devMode", reproducible.cloudFolderID = "1oNGYVAV3goXfSzD1dziotKGCdO8P_iV9", reproducible.showSimilar = TRUE, reproducible.showSimilarDepth = 8, # Eliot during development fireSenseUtils.runTests = FALSE, reproducible.memoisePersist = TRUE # sets the memoise location to .GlobalEnv; persists through a `load_all` ), times = list(start = 2011, end = 2021), functions = "ianmseddy/NEBC@main/R/studyAreaFuns.R", climateVariablesForFire = list(ignition = "CMDsm", spread = "CMDsm"), # sppEquiv = { # makeSppEquiv(ecoprovinceNum = ecoprovince) |> Cache() # }, #update mutuallyExlcusive Cols # setupSAandRTMfun = setupSAandRTM, studyAreaInit = { d <- scfmutils::prepInputsFireRegimePolys(type = "FRU", destinationPath = paths$inputPath) |> Cache() d[d$FRU == FRU,1] # b <- scfmutils::prepInputsFireRegimePolys(type = "FRT", destinationPath = paths$inputPath) |> # Cache() # b[b$FRT == 8,1] }, rasterToMatch = {reproducible::prepInputs(destinationPath = paths$inputPath, url = paste0("https://ftp.maps.canada.ca/pub/nrcan_rncan/Forests_Foret/", "canada-forests-attributes_attributs-forests-canada/", "2001-attributes_attributs-2001/", "NFI_MODIS250m_2001_kNN_Structure_Stand_Age_v1.tif"), cropTo = studyAreaInit, maskTo = studyAreaInit, writeTo = NULL, method = c("near"), fun = "terra::rast") |> Cache()}, studyArea = postProcessTo(studyAreaInit, projectTo = rasterToMatch) ) ```
No due date•0/2 issues closed