fix: remove error when CRS do not match between x and mask

riatelab · Jul 7, 2022 · db64ba2 · db64ba2
1 parent 1243493
commit db64ba2
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/R/mapiso.R b/R/mapiso.R
@@ -180,9 +180,8 @@ mapiso <- function(x, var, breaks, nbreaks = 8, mask, coords, crs) {
     if (st_crs(iso) == st_crs(mask)) {
       iso <- st_cast(st_intersection(x = iso, y = st_union(st_geometry(mask))))
     } else {
-      stop(
-        "CRS of 'x' and 'mask' should be identical.",
-        call. = FALSE
+      cat(
+        "CRS of 'x' and 'mask' should be identical, polygons are not clipped."
       )
     }
   }

diff --git a/inst/tinytest/test_mapiso.R b/inst/tinytest/test_mapiso.R
@@ -34,7 +34,7 @@ expect_silent(mapiso(x = d, var = 'elevation', coords = c('x', 'y'),
 
 expect_error(mapiso("textx"))
 
-expect_error(mapiso(x = s, var = "elevation", breaks = bks,
+expect_silent(mapiso(x = s, var = "elevation", breaks = bks,
                     mask = st_transform(m, 4326)))