From 2244410378e8eaa807190b4cb8d83baf85fe0ef6 Mon Sep 17 00:00:00 2001 From: Eric Scott Date: Wed, 22 May 2024 17:36:01 -0700 Subject: [PATCH] oops, comment out test code --- R/tar_terra_tiles.R | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/R/tar_terra_tiles.R b/R/tar_terra_tiles.R index c96f79c..110f3b0 100644 --- 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)