ex <- rastex()
# crop to a specific area
if(requireNamespace("terra", quietly=TRUE)){
ext <- terra::ext(c(
xmin = 106.58,
xmax = 157.82,
ymin = -45.23,
ymax = 1.14
))
# cropping all
au<- crop(ex, ext)
}
Run the code above in your browser using DataLab