different way of doing a multi-layer raster

njtierney · Aug 21, 2024 · daa75c6 · daa75c6
1 parent 36df4f9
commit daa75c6
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/tests/testthat/test-tar-terra-tiles.R b/tests/testthat/test-tar-terra-tiles.R
@@ -47,13 +47,13 @@ targets::tar_test("recombined tiles are equal to original", {
         list(
             tar_target(
                 my_file,
-                # system.file("ex/elev.tif", package="terra"),
-                system.file("ex/logo.tif", package = "terra"),
+                system.file("ex/elev.tif", package = "terra"),
                 format = "file"
             ),
             tar_terra_rast(
                 my_map,
-                terra::rast(my_file)
+                #create multi-layer raster for testing
+                rast(c(my_file, my_file))
             ),
             tar_terra_tiles(
                 name = rast_split,
@@ -65,7 +65,6 @@ targets::tar_test("recombined tiles are equal to original", {
     targets::tar_make()
     targets::tar_load(c(my_map, rast_split))
     recombined <- terra::merge(terra::sprc(rast_split))
-    names(recombined) <- names(my_map) <- 1:3 #ignore dimnames because of bug #89
     expect_equal(terra::values(my_map),
                  terra::values(recombined))
 })