From 5e3243f25f576ab23d573dd75310462167f181c6 Mon Sep 17 00:00:00 2001
From: Unknown <ianmseddy@gmail.com>
Date: Thu, 11 Oct 2018 16:56:35 -0700
Subject: [PATCH 1/2] fix biomass map

---
 Boreal_LBMRDataPrep.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Boreal_LBMRDataPrep.R b/Boreal_LBMRDataPrep.R
index 642c89d..72bf826 100644
--- a/Boreal_LBMRDataPrep.R
+++ b/Boreal_LBMRDataPrep.R
@@ -574,7 +574,8 @@ Save <- function(sim) {
   if (!suppliedElsewhere(sim$rstStudyRegion)) {
     needRstSR <- TRUE
   } else {
-    if (!identical(extent(sim$rstStudyRegion), extent(biomassMap))) {
+    browser()
+    if (!identical(extent(sim$rstStudyRegion), extent(sim$biomassMap))) {
       needRstSR <- TRUE
     } else {
       needRstSR <- FALSE

From e3f8e3cc55a633f201ef23843f8c2114d1ee53f6 Mon Sep 17 00:00:00 2001
From: Unknown <ianmseddy@gmail.com>
Date: Thu, 11 Oct 2018 16:58:23 -0700
Subject: [PATCH 2/2] removed a browser

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

diff --git a/Boreal_LBMRDataPrep.R b/Boreal_LBMRDataPrep.R
index 72bf826..267142b 100644
--- a/Boreal_LBMRDataPrep.R
+++ b/Boreal_LBMRDataPrep.R
@@ -574,8 +574,7 @@ Save <- function(sim) {
   if (!suppliedElsewhere(sim$rstStudyRegion)) {
     needRstSR <- TRUE
   } else {
-    browser()
-    if (!identical(extent(sim$rstStudyRegion), extent(sim$biomassMap))) {
+      if (!identical(extent(sim$rstStudyRegion), extent(sim$biomassMap))) {
       needRstSR <- TRUE
     } else {
       needRstSR <- FALSE