diff --git a/tests/testthat/test-sp_resampleRas.R b/tests/testthat/test-sp_resampleRas.R index b0266c7..684200e 100644 --- a/tests/testthat/test-sp_resampleRas.R +++ b/tests/testthat/test-sp_resampleRas.R @@ -9,7 +9,7 @@ terra::values(ras_b) <- runif(n = terra::ncell(ras_b)) test_that("sp_resampleRas results in same resolution/extent", { - ras_a_res <- spL_resampleRas(x = ras_a, y = ras_b) + ras_a_res <- spl_resampleRas(x = ras_a, y = ras_b) expect_true(terra::compareGeom(ras_a_res, ras_b)) diff --git a/tests/testthat/test-spl_tests.R b/tests/testthat/test-spl_tests.R index 25545df..7e978b1 100644 --- a/tests/testthat/test-spl_tests.R +++ b/tests/testthat/test-spl_tests.R @@ -12,13 +12,13 @@ test_that("Spatial object modifications", { # NA replacements # r1[sample(1:terra::ncell(r1),100)] <- NA expect_no_error( - r1_filled <- sp_replaceGriddedNA(r1, value = 0) + r1_filled <- spl_replaceGriddedNA(r1, value = 0) ) expect_s4_class(r1_filled, "SpatRaster") expect_equal(terra::global(r1_filled,"min")[,1], 0) # Should be 0 # Use layer 2 for masking instead expect_no_error( - r1_filled2 <- sp_replaceGriddedNA(r1,mask = r2) + r1_filled2 <- spl_replaceGriddedNA(r1,mask = r2) ) expect_s4_class(r1_filled2, "SpatRaster") # --- #