fixing failing tests

16EAGLE · Mar 3, 2024 · 33ad5e2 · 33ad5e2
1 parent a4ab9d9
commit 33ad5e2
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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
@@ -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))