From d8e43a029a9fc62e937ce95fb75a1313b9d336f3 Mon Sep 17 00:00:00 2001
From: eblondel <emmanuel.blondel1@gmail.com>
Date: Wed, 12 Jul 2023 15:42:47 +0200
Subject: [PATCH] fix #110

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

diff --git a/R/WFSFeatureType.R b/R/WFSFeatureType.R
index 4840cae..5517123 100644
--- a/R/WFSFeatureType.R
+++ b/R/WFSFeatureType.R
@@ -394,7 +394,7 @@ WFSFeatureType <- R6Class("WFSFeatureType",
         ),      
         sf::st_read(destfile, quiet = TRUE)
       )
-      if(self$hasGeometry()){
+      if(self$hasGeometry()) if(self$getGeometryType() %in% colnames(ftFeatures)){
         if(is.na(st_crs(ftFeatures))) st_crs(ftFeatures) <- self$getFeaturesCRS(obj)
         if(is.na(st_crs(ftFeatures))) st_crs(ftFeatures) <- self$getDefaultCRS()
       }