tfile <- tempfile(fileext = ".tif")
if (!file.exists(tfile)) {
vapour_create(tfile, extent = c(-1, 1, -1, 1) * 1e6,
dimension = c(128, 128),
projection = "+proj=laea")
file.remove(tfile)
}
Run the code above in your browser using DataLab