added st_make_valid() to QMA and stat area funcs

quantifish · Sep 29, 2024 · 7507373 · 7507373
1 parent c7d52dd
commit 7507373
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/R/plot-qma.R b/R/plot-qma.R
@@ -84,7 +84,8 @@ get_qma <- function(qma = "CRA", proj = proj_nzsf()) {
     x <- x %>% 
       st_transform(crs = proj, check = TRUE) %>% 
       st_union(by_feature = TRUE) %>%
-      st_cast("MULTIPOLYGON")
+      st_cast("MULTIPOLYGON") %>%
+      st_make_valid()
   }
   return(x)
 }

diff --git a/R/plot-statistical-areas.R b/R/plot-statistical-areas.R
@@ -55,7 +55,8 @@ get_statistical_areas <- function(area = "CRA", proj = proj_nzsf()) {
     x <- x %>% 
       # st_transform(crs = proj, check = TRUE) %>% 
       st_transform(crs = proj) %>% 
-      st_union(by_feature = TRUE)
+      st_union(by_feature = TRUE) %>%
+      st_make_valid()
     # if (!area %in% "EEZ") {
     #   x <- x %>% st_cast("MULTIPOLYGON")
     # }