# \donttest{
## Prepare file paths
td <- tempdir()
in_dem <- system.file("extdata/maunga.tif", package = "gdalUtilities")
out_slope <- file.path(td, "slope.tif")
out_shade <- file.path(td, "shade.tif")
out_aspect <- file.path(td, "aspect.tif")
## Apply DEM processing
gdaldem("slope", in_dem, out_slope)
gdaldem("shade", in_dem, out_shade)
gdaldem("aspect", in_dem, out_aspect)
## View results
if(require(terra)) {
op <- par(mfcol = c(1, 2))
plot(rast(in_dem), main = "elevation")
plot(rast(out_slope), main = "slope")
plot(rast(out_shade), main = "hillshade")
plot(rast(out_aspect), main = "aspect")
par(op) ## Reset parameters to preexisting values
}
# }
Run the code above in your browser using DataLab