if (FALSE) {
# STACItemCollection object
stac_obj <- stac("https://planetarycomputer.microsoft.com/api/stac/v1/") %>%
stac_search(collections = "sentinel-2-l2a",
bbox = c(-47.02148, -17.35063, -42.53906, -12.98314)) %>%
get_request()
# signing each asset href
stac_obj %>% items_sign(sign_fn = sign_planetary_computer())
# example of access to collections that require authentication
stac_obj <- stac("https://planetarycomputer.microsoft.com/api/stac/v1") %>%
stac_search(collections = c("sentinel-1-rtc"),
bbox = c(-64.8597, -10.4919, -64.79272527, -10.4473),
datetime = "2019-01-01/2019-01-28") %>%
post_request()
# signing each asset href
# stac_obj %>% items_sign(
# sign_fn = sign_planetary_computer(
# headers = c("Ocp-Apim-Subscription-Key" = )
# )
# )
}
Run the code above in your browser using DataLab