if (FALSE) {
# STACItemCollection object
stac_obj <- stac("https://brazildatacube.dpi.inpe.br/stac/") %>%
stac_search(collections = "CB4_64_16D_STK-1",
datetime = "2019-06-01/2019-08-01") %>%
stac_search() %>%
get_request()
# signing each item href
stac_obj %>% items_sign(sign_fn = sign_bdc(access_token = "123"))
}
Run the code above in your browser using DataLab