if (FALSE) {
# doc_items object
stac_obj <- stac("https://brazildatacube.dpi.inpe.br/stac/") %>%
stac_search(collections = "CB4-16D-2",
datetime = "2019-06-01/2019-08-01") %>%
stac_search() %>%
get_request()
# the new way to authenticate:
stac_obj <- stac_obj %>%
items_sign_bdc("")
# this is the old way of authentication (still works):
# stac_obj %>%
# items_sign(sign_fn = sign_bdc(access_token = ""))
}
Run the code above in your browser using DataLab