# \donttest{
if(require(terra)) {
## Prepare file paths of example shapefile and template raster file
vect_file <- system.file("ex/lux.shp", package = "terra")
td <- tempdir()
rast_file <- file.path(td, "lux_rast.tif")
## Construct and save an appropriately sized 'empty' raster
LUX <- vect(vect_file)
lonlatratio <- 1 / cospi(mean(geom(LUX)[, "y"]) / 180)
rr <- rast(ext(LUX),
resolution = c(lonlatratio * 0.01, 0.01),
crs = crs(LUX), vals = NA)
## Note: this next line warns that raster is empty
writeRaster(rr, filename = rast_file, overwrite = TRUE)
## Rasterize polygon using empty raster and check that it worked
gdal_rasterize(vect_file, rast_file, a = "ID_2")
plot(rast(rast_file))
}
# }
Run the code above in your browser using DataLab