change sf conversion

macroecology · Dec 21, 2023 · 836c503 · 836c503
1 parent 8ebad60
commit 836c503
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/defensive_functions.R b/R/defensive_functions.R
@@ -1,6 +1,9 @@
 # Defensive codes for letsR functions
 .check_shape <- function(shape) {
   sf_check <-  inherits(shape, "sf")
+  if (sf_check) {
+    shape <- st_cast(shape, "MULTIPOLYGON")
+  }
   spatial_check <- inherits(shape, "Spatial")
   sp_check <-  inherits(shape, "SpatialPolygonsDataFrame")
   if (sp_check | spatial_check | sf_check) {
@@ -17,6 +20,7 @@
   return(shape)
 }
 
+
 # Check PAM
 .check_pam <- function(x) {
   x[[2]] <- terra::unwrap(x[[2]])