#17 control for overwriting crs

eblondel · Oct 22, 2018 · ab5e1f2 · ab5e1f2
1 parent c1557c2
commit ab5e1f2
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/WFSFeatureType.R b/R/WFSFeatureType.R
@@ -246,7 +246,9 @@ WFSFeatureType <- R6Class("WFSFeatureType",
       #ftFeatures
       if(hasGeometry){
         ftFeatures <- sf::st_read(destfile, quiet = TRUE)
-        st_crs(ftFeatures) <- self$getDefaultCRS()
+        if(is.null(st_crs(ftFeatures))){
+          st_crs(ftFeatures) <- self$getDefaultCRS()
+        }
       }else{
         if(private$version == "1.0.0"){
           membersContent <- sapply(getNodeSet(xmlObj, "//gml:featureMember"), function(x) xmlChildren(x))