From 387c91a15e5191d17c39970c4c90a27f92cee5de Mon Sep 17 00:00:00 2001
From: Alex Chubaty <alex.chubaty@gmail.com>
Date: Fri, 26 Oct 2018 17:13:34 -0600
Subject: [PATCH] write speciesLayes raster to disk

---
 Boreal_LBMRDataPrep.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Boreal_LBMRDataPrep.R b/Boreal_LBMRDataPrep.R
index 020b8cd..65f1147 100644
--- 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
   }