revert patch #125

eblondel · Feb 28, 2024 · b05ad74 · b05ad74
1 parent c2e3993
commit b05ad74
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/R/WFSFeatureTypeElement.R b/R/WFSFeatureTypeElement.R
@@ -47,9 +47,8 @@ WFSFeatureTypeElement <- R6Class("WFSFeatureTypeElement",
          stop(sprintf("Unknown data type for type '%s' while parsing FeatureType description!", type))
        }
 
-       gml_xmlns = namespaces[namespaces$uri =="http://www.opengis.net/gml",]$id
-       if(attr(regexpr(gml_xmlns, type), "match.length") > 0){
-         elementType <- unlist(strsplit(unlist(strsplit(type, paste0(gml_xmlns,":")))[2], "PropertyType"))[1]
+       if(attr(regexpr("gml", type), "match.length") > 0){
+         elementType <- unlist(strsplit(unlist(strsplit(type, paste0("gml",":")))[2], "PropertyType"))[1]
          geometry <- TRUE
        }else{
          baseType <- tolower(type)