From fc7457247b9d9243ad18d44030ef13a884f72eca Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ma=C3=ABlle=20Salmon?= <maelle.salmon@yahoo.se>
Date: Wed, 28 Feb 2024 12:22:51 +0100
Subject: [PATCH] fix: refactor guess_layer_format() for more robustness

---
 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"