oops, comment out test code

njtierney · May 23, 2024 · 2244410 · 2244410
1 parent 83acc50
commit 2244410
Showing 1 changed file with 8 additions and 7 deletions.
diff --git a/R/tar_terra_tiles.R b/R/tar_terra_tiles.R
@@ -40,6 +40,7 @@ tar_terra_tiles_raw <- function(
     #     gdal = gdal
     # ))
 
+    #this is what the output should be:
     command <- expression(c("my_tiles/myrast_tile1", "my_tiles/myrast_tile2", "my_tiles/myrast_tile3", "my_tiles/myrast_tile4"))
 
     upstream <- targets::tar_target_raw(
@@ -206,10 +207,10 @@ make_tiles <- function(raster, template, tiles_dir, filename, filetype, gdal) {
     )
 }
 ## This works! Why doesn't the upstream target work?
-raster <- terra::rast(system.file("ex/elev.tif", package="terra"))
-template <- terra::rast(ncols = 2, nrows = 2)
-tiles_dir<- "my_tiles"
-filename <- "myrast_tile"
-filetype <- "GTiff"
-gdal <- ""
-make_tiles(raster, template, tiles_dir, filename, filetype, gdal)
+# raster <- terra::rast(system.file("ex/elev.tif", package="terra"))
+# template <- terra::rast(ncols = 2, nrows = 2)
+# tiles_dir<- "my_tiles"
+# filename <- "myrast_tile"
+# filetype <- "GTiff"
+# gdal <- ""
+# make_tiles(raster, template, tiles_dir, filename, filetype, gdal)