change sensitivity of projectInputs -- so won't if all.equal

PredictiveEcology · Mar 19, 2020 · 88ca531 · 88ca531
1 parent 5fe0a4a
commit 88ca531
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/postProcess.R b/R/postProcess.R
@@ -613,9 +613,9 @@ projectInputs.Raster <- function(x, targetCRS = NULL, rasterToMatch = NULL, core
     doProjection <- FALSE
     if (is.null(rasterToMatch)) {
       if (!identical(crs(x), targetCRS))  doProjection <- TRUE
-    } else if (!identical(crs(x), targetCRS) |
-               !identical(res(x), res(rasterToMatch)) |
-               !identical(extent(x), extent(rasterToMatch))) {
+    } else if (!isTRUE(all.equal(crs(x), targetCRS)) |
+               !isTRUE(all.equal(res(x), res(rasterToMatch))) |
+               !isTRUE(all.equal(extent(x), extent(rasterToMatch)))) {
       doProjection <- TRUE
     }