fix crs comparison

r-geoflow · Oct 18, 2019 · abc49ed · abc49ed
1 parent 66f40ef
commit abc49ed
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/geoflow_entity.R b/R/geoflow_entity.R
@@ -314,8 +314,8 @@ geoflow_entity <- R6Class("geoflow_entity",
                  sf.crs <- sf::st_crs(sf.data)
                  if(!is.na(sf.crs)){
                    srid <- if(!is.null(self$srid)) self$srid else ""
-                   if(srid != sf.crs){
-                    config$logger.info("Overwriting entity srid [%s] with shapefile srid [%s]") 
+                   if(srid != sf.crs$epsg){
+                    config$logger.info(sprintf("Overwriting entity srid [%s] with shapefile srid [%s]", srid, sf.crs$epsg)) 
                     self$setSrid(sf.crs$epsg)
                    }
                  }