diff --git a/R/tar_terra_tiles.R b/R/tar_terra_tiles.R index 6bb8661..b33caa9 100644 --- a/R/tar_terra_tiles.R +++ b/R/tar_terra_tiles.R @@ -266,6 +266,31 @@ set_window <- function(raster, window) { #' tile_grid(r, ncol = 2, nrow = 2) #' tile_blocksize(r) #' tile_n(r, 8) +#' +#' \dontrun{ +#' #usage with tar_terra_tiles +#' list( +#' tar_terra_rast( +#' my_map, +#' terra::rast(system.file("ex/logo.tif", package = "terra")) +#' ), +#' tar_terra_tiles( +#' name = rast_split, +#' raster = my_map, +#' tile_fun = tile_blocksize +#' ), +#' tar_terra_tiles( +#' name = rast_split_grid, +#' raster = my_map, +#' tile_fun = \(x) tile_grid(x, ncol = 2, nrow = 2) +#' ), +#' tar_terra_tiles( +#' name = rast_split_n, +#' raster = my_map, +#' tile_fun = \(x) tile_n(x, n = 6) +#' ) +#' ) +#' } tile_grid <- function(raster, ncol, nrow) { template <- terra::rast( x = terra::ext(raster), diff --git a/man/tile_helpers.Rd b/man/tile_helpers.Rd index bdf4761..a40cf2d 100644 --- a/man/tile_helpers.Rd +++ b/man/tile_helpers.Rd @@ -43,6 +43,31 @@ r <- terra::rast(f) tile_grid(r, ncol = 2, nrow = 2) tile_blocksize(r) tile_n(r, 8) + +\dontrun{ +#usage with tar_terra_tiles +list( + tar_terra_rast( + my_map, + terra::rast(system.file("ex/logo.tif", package = "terra")) + ), + tar_terra_tiles( + name = rast_split, + raster = my_map, + tile_fun = tile_blocksize + ), + tar_terra_tiles( + name = rast_split_grid, + raster = my_map, + tile_fun = \(x) tile_grid(x, ncol = 2, nrow = 2) + ), + tar_terra_tiles( + name = rast_split_n, + raster = my_map, + tile_fun = \(x) tile_n(x, n = 6) + ) +) +} } \author{ Eric Scott