# regular file system for illustration
elev_file <- system.file("extdata/storml_elev.tif", package="gdalraster")
tcc_file <- system.file("extdata/storml_tcc.tif", package="gdalraster")
tmp_elev <- file.path(tempdir(), "tmp_elev.tif")
file.copy(elev_file, tmp_elev)
tmp_tcc <- file.path(tempdir(), "tmp_tcc.tif")
file.copy(tcc_file, tmp_tcc)
vsi_unlink_batch(c(tmp_elev, tmp_tcc))
Run the code above in your browser using DataLab