# NOT RUN {
rs <- raster::stack(system.file("external/rlogo.grd",
package = "raster"))
print(rs)
path <- file.path(getwd(), "rlogo")
dir.create(path)
ExportRasterStack(rs, path)
list.files(normalizePath(path, winslash = "/"),
full.name = TRUE, recursive = TRUE,
include.dirs = TRUE)
unlink(path, recursive = TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab