check target crs in intersection

openfigis · Oct 28, 2019 · 58c4985 · 58c4985
1 parent daec5b0
commit 58c4985
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/Intersection.R b/R/Intersection.R
@@ -41,7 +41,7 @@ intersection <- function(features1, features2,
 
  #check CRS
  targetCRS <- proj4string(features1)
- if (targetCRS != proj4string(features2)) {
+ if(!is.na(targetCRS)) if (targetCRS != proj4string(features2)) {
  print("CRS differ, try to project the second feature collection")
  features2 <- spTransform(features2, CRS(targetCRS)); 
  }