From 0480bb0621cd62f0ee725cad0bf50733f6f0c865 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ma=C3=ABlle=20Salmon?= <maelle.salmon@yahoo.se>
Date: Fri, 15 Mar 2024 09:26:05 +0100
Subject: [PATCH] fix: refactor guess_layer_format() for more robustness (#159)

---
 R/info.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/info.R b/R/info.R
index 96780fb..de457d7 100644
--- 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"