## create example data set
x <- terra::rast(nrows = 100, ncols = 100,
xmin = 0, xmax = 10,
ymin = 0, ymax = 10)
terra::values(x) <- 1:10000
## create crop extent vector
bbox <- c(3, 7, 3, 7)
## crop spatial object
y <- spatial_crop(data = x,
bbox = bbox)
## plot both objects
terra::plot(x)
terra::plot(y, add = TRUE)
Run the code above in your browser using DataLab