# NOT RUN {
# Retrieve the whole catalogue
Data60UK_catalogue_all <- catalogueData60UK()
# Filter the catalogue based on a bounding box
areaBox <- raster::extent(-4, -2, +52, +53)
Data60UK_catalogue_bbox <- catalogueData60UK(areaBox)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab