Merge pull request #269 from rOpenGov/cache

Make get_eurostat_geospatial usable without sf package
rOpenGov · Aug 18, 2023 · e03bdbb · e03bdbb
2 parents be2b98d + 61db0b8
commit e03bdbb
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/R/get_eurostat_geospatial.R b/R/get_eurostat_geospatial.R
@@ -273,8 +273,15 @@ get_eurostat_geospatial <- function(output_class = "sf",
 
   # to df
   if (output_class == "df") {
-    # Remove geometry
-    shp <- sf::st_drop_geometry(shp)
+    # nocov start
+    if (!requireNamespace("sf", quietly = TRUE)) {
+      # Remove geometry without sf package
+      shp$geometry <- NULL
+    # nocov end
+    } else {
+      # Remove geometry
+      shp <- sf::st_drop_geometry(shp)
+    }
   }
 
   return(shp)