fix in case of NULL attribute

eblondel · May 23, 2018 · ea85534 · ea85534
1 parent 3d69de1
commit ea85534
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/WFSFeatureType.R b/R/WFSFeatureType.R
@@ -281,7 +281,9 @@ WFSFeatureType <- R6Class("WFSFeatureType",
         attrType <- element$getType()
         if(!is.null(attrType) && attrType != "geometry"){
           attrName = element$getName()
-          ftFeatures[[attrName]] <- as(ftFeatures[[attrName]],attrType)
+          if(!is.null(ftFeatures[[attrName]])){
+            ftFeatures[[attrName]] <- as(ftFeatures[[attrName]],attrType)
+          }
         }
       }
       self$features <- ftFeatures;