file <- system.file("extdata", "lanjaron.gpkg", package = "satres")
lanjaron <- sf::st_read(file, layer = "lanjaron_bbox", quiet = TRUE)
esa <- system.file("extdata", "esa", package = "satres")
sr <- satres(dir = esa) |>
clip_bands(polygon = lanjaron)
Run the code above in your browser using DataLab