# \donttest{
library(terra)
# original extent - bounding box over Czech Republic
original_extent <- vyskopis("rayshaded", cropped = FALSE)
plot(original_extent, col = gray.colors(16))
# add plot of country borders, for context
plot(RCzechia::republika(),
border = "red",
col = NA,
add = TRUE)
# cropped to size - default behaviour
cropped_extent <- vyskopis("rayshaded")
plot(cropped_extent, col = gray.colors(16))
# }
Run the code above in your browser using DataLab