Make data frame without sf

#279

R/get_eurostat_geospatial.R

@@ -87,7 +87,7 @@
 #' © EuroGeographics for the administrative boundaries
 #'
 #' Data downloaded using \pkg{giscoR}
-#' 
+#'
 #' @inheritSection eurostat-package Eurostat: Copyright notice and free re-use of data
 #' @inheritSection eurostat-package Data source: GISCO - General Copyright
 #' @inheritSection eurostat-package Data source: GISCO - Administrative Units / Statistical Units
@@ -233,8 +233,15 @@ get_eurostat_geospatial <- function(output_class = "sf",
     # nocov start
     if (!requireNamespace("sf", quietly = TRUE)) {
       # Remove geometry without sf package
-      shp$geometry <- NULL
-    # nocov end
+
+      new_class <- intersect(class(shp), class(tibble::tibble()))
+      geom_col <- attr(shp, "sf_column")
+
+      # Unclass and remove specific sf columns
+      class(shp) <- new_class
+
+      shp <- shp[, setdiff(names(shp), geom_col)]
+      # nocov end
     } else {
       # Remove geometry
       shp <- sf::st_drop_geometry(shp)