Merge pull request #139 from afsc-gap-products/dev2

Fix survey grid transformation
afsc-gap-products · Jan 6, 2025 · f30db1a · f30db1a
2 parents 7b7f48e + a2ca287
commit f30db1a
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/get_base_layers.R b/R/get_base_layers.R
@@ -515,6 +515,10 @@ get_base_layers <- function(select.region,
     inpfc.strata <- sf::st_transform(inpfc.strata, crs = set.crs)
   }
 
+  if(!is.null(survey.grid)) {
+    survey.grid <- sf::st_transform(survey.grid, crs = set.crs)
+  }
+
   # Set plot boundary ------------------------------------------------------------------------------
   if(all(select.region %in% c("ai.east", "ai.west", "ai.central", "goa.west", "goa.east"))) {