diff --git a/DESCRIPTION b/DESCRIPTION index 45d2a34..7ed0c3e 100755 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -13,7 +13,7 @@ Authors@R: c( Description: Tools to visualize movement data (e.g. from GPS tracking) and temporal changes of environmental data (e.g. from remote sensing) by creating video animations. License: GPL-3 Encoding: UTF-8 -RoxygenNote: 7.2.1 +RoxygenNote: 7.2.3 Imports: move, raster, diff --git a/tests/testthat/test-frames_spatial.R b/tests/testthat/test-frames_spatial.R index ed7a212..197768d 100644 --- a/tests/testthat/test-frames_spatial.R +++ b/tests/testthat/test-frames_spatial.R @@ -26,7 +26,7 @@ test_that("frames_spatial (raster, gradient)", { # correct calls frames <- expect_length(expect_is(frames_spatial(m.aligned, r_grad, r_times, r_type = "gradient", verbose = F), "moveVis"), 188) expect_is(frames[[1]], "ggplot") # move stack - frames <- expect_warning(expect_length(expect_is(frames_spatial(m.aligned[[1]], r_grad, r_times, r_type = "gradient", verbose = F), "moveVis"), 143)) + frames <- expect_length(expect_is(frames_spatial(m.aligned[[1]], r_grad, r_times, r_type = "gradient", verbose = F), "moveVis"), 143) expect_is(frames[[1]], "ggplot") # single move frames <- expect_length(expect_is(frames_spatial(m.aligned, r_grad[[5]], r_times[[5]], r_type = "gradient", verbose = F), "moveVis"), 188) expect_is(frames[[1]], "ggplot") # single raster diff --git a/tests/testthat/test-view_spatial.R b/tests/testthat/test-view_spatial.R index 6afddab..7bc1bc5 100644 --- a/tests/testthat/test-view_spatial.R +++ b/tests/testthat/test-view_spatial.R @@ -7,7 +7,7 @@ test_that("view_spatial", { if(isTRUE(check_mapview)){ expect_is(view_spatial(m), "mapview") expect_is(view_spatial(m, time_labels = FALSE, path_legend = FALSE), "mapview") - expect_is(expect_warning(view_spatial(m[[1]], time_labels = FALSE, path_legend = FALSE)), "mapview") # CRS warning + expect_is(view_spatial(m[[1]], time_labels = FALSE, path_legend = FALSE), "mapview") } if(isTRUE(check_leaflet)) expect_is(view_spatial(m, render_as = "leaflet"), "leaflet") else expect_error(view_spatial(m))