# NOT RUN {
r <- rast(ncols=100, nrows=100)
values(r) <- 1:ncell(r)
x <- rast(ncol=2, nrow=2)
filename <- paste0(tempfile(), "_.tif")
ff <- makeTiles(r, x, filename)
vrtfile <- paste0(tempfile(), ".vrt")
v <- vrt(ff, vrtfile)
head(readLines(vrtfile))
v
# }
Run the code above in your browser using DataLab