fix: refactor guess_layer_format() for more robustness (#159)

EMODnet · Mar 15, 2024 · 0480bb0 · 0480bb0
1 parent 383031d
commit 0480bb0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/info.R b/R/info.R
@@ -114,7 +114,7 @@ get_abstract_null <- function(x) {
 }
 
 guess_layer_format <- function(layer) {
-  if (any(layer$getDescription(pretty = TRUE)[["geometry"]])) {
+  if (!is.null(layer$getGeometryType())) {
     "sf"
   } else {
     "data.frame"