# NOT RUN {
# Define dummy polygon
shape <- as(raster::extent(7, 18, 37, 40), "SpatialPolygons")
# Read RISICO test data
r_risico <- readRDS(system.file("extdata", "RISICO_raster.rds",
package = "caliver"))
mask_crop_subset(r = r_risico, p = shape)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab