Update WFSFeatureType.R - fix control on description in getGeometryType

eblondel · Jan 27, 2025 · 54b7c37 · 54b7c37
1 parent 09b59ee
commit 54b7c37
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/WFSFeatureType.R b/R/WFSFeatureType.R
@@ -231,7 +231,7 @@ WFSFeatureType <- R6Class("WFSFeatureType",
     #'@description Get geometry type
     #'@return object of class \link{character} representing the geometry tpe
     getGeometryType = function(){
-      if(is.null(self$description)) self$description = self$getDescription()
+      if(length(self$description)==0) self$description = self$getDescription()
       geomType <- NULL
       if(self$hasGeometry()){
         geomType <- self$description[sapply(self$description, function(x){x$isGeometry()})][[1]]$getType()