if (FALSE) {
dsn <- system.file("extdata", "luxembourg.geojson", package = "CDSE")
aoi <- sf::read_sf(dsn, as_tibble = FALSE)
images <- SearchCatalog(aoi = aoi, from = "2023-07-01", to = "2023-07-31",
collection = "sentinel-2-l2a", with_geometry = TRUE, client = OAuthClient)
images_cloudless <- SearchCatalog(aoi = aoi, from = "2023-07-01", to = "2023-07-31",
filter = "eo:cloud_cover < 5",
collection = "sentinel-2-l2a", with_geometry = TRUE, client = OAuthClient)
}
Run the code above in your browser using DataLab