# \donttest{
# STACItemCollection object
stac_item_collection <-
stac("https://brazildatacube.dpi.inpe.br/stac/") %>%
stac_search(collections = "CB4_64_16D_STK-1",
bbox = c(-47.02148, -12.98314, -42.53906, -17.35063),
limit = 15) %>%
get_request()
print(stac_item_collection, n = 10)
# STACCollectionList object
stac_collection <-
stac("https://brazildatacube.dpi.inpe.br/stac/") %>%
collections() %>%
get_request()
print(stac_collection, n = 5)
# RSTACQuery object
obj_rstac <- stac("https://brazildatacube.dpi.inpe.br/stac/")
print(obj_rstac)
# }
Run the code above in your browser using DataLab