write speciesLayes raster to disk

ianmseddy · Oct 26, 2018 · 387c91a · 387c91a
1 parent f61fc6b
commit 387c91a
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Boreal_LBMRDataPrep.R b/Boreal_LBMRDataPrep.R
@@ -578,6 +578,7 @@ Save <- function(sim) {
                                userTags = c(cacheTags, "specieslayers"))
 
     #options(opts)
+    writeRaster(specieslayersList$specieslayers, file.path(outputPath(sim), "speciesLayers.grd"))
     sim$specieslayers <- specieslayersList$specieslayers
     sim$speciesList <- specieslayersList$speciesList
   }