diff --git a/R/mapiso.R b/R/mapiso.R index 479d678..53853a3 100644 --- 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 index 14f8adb..eb1bc9d 100644 --- 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)))