if (FALSE) {
Sys.setenv(EARTHDATA_TOKEN = "your Earthdata bearer token")
status <- mf_list_collections_cloud("VJ121A2.002")
subset(status, status == "operational")
mf_list_collections_cloud("VJ121A2.002",
time_range = as.Date(c("2026-01-01", "2026-01-30")))
}
Run the code above in your browser using DataLab