depurate allows multiplygon boundary

PPaccioretti · Jul 7, 2024 · d71dd7a · d71dd7a
1 parent 7b4fced
commit d71dd7a
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,6 @@
 # paar 0.0.0.9003 (development version)
 
+* Now `depurate` function allows to use MULTIPOLYGON objects.
 * Build vignette for `kmspc` function. 
 * Build vignette for `depurate` function. 
 * New `cbind.paar` function to bind the condition of one paar object with a 

diff --git a/R/depurate.R b/R/depurate.R
@@ -191,8 +191,8 @@ remove_border <- function(x,
       stop('poly_border must be an sf object', call. = FALSE)
     }
 
-    if (unique(sf::st_geometry_type(poly_border)) != 'POLYGON') {
-      stop('poly_border must have only POLYGON as geometry type',
+    if (!unique(sf::st_geometry_type(poly_border)) %in% c('POLYGON', 'MULTIPOLYGON')) {
+      stop('poly_border must have only POLYGON or MULTIPOLYGON as geometry type',
            call. = FALSE)
     }