# \donttest{
# STACItemCollection object
stac_item <- stac("https://brazildatacube.dpi.inpe.br/stac/") %>%
 stac_search(collections = "CB4_64_16D_STK-1", limit = 100,
        datetime = "2017-08-01/2018-03-01",
        bbox = c(-48.206,-14.195,-45.067,-12.272)) %>%
 get_request() %>% items_fetch(progress = FALSE)
stac_item %>% assets_list(assets_names = c("EVI", "NDVI"))
# }
Run the code above in your browser using DataLab