if (FALSE) {
# STACItemCollection object
stac_obj <- stac("https://planetarycomputer.microsoft.com/api/stac/v1/") %>%
stac_search(collections = "sentinel-2-l2a",
bbox = c(-47.02148, -42.53906, -12.98314, -17.35063)) %>%
get_request()
# signing each item href
stac_obj %>% items_sign(sign_fn = sign_planetary_computer())
}
Run the code above in your browser using DataLab