if (FALSE) {
## List some STAC properties for a specific product and layer
cms_stac_properties(
product = "GLOBAL_ANALYSISFORECAST_PHY_001_024",
layer = "cmems_mod_glo_phy-cur_anfc_0.083deg_P1D-m"
)
## Get the available files for a specific product and layer:
file_tibble <-
cms_list_stac_files("GLOBAL_ANALYSISFORECAST_PHY_001_024",
"cmems_mod_glo_phy-cur_anfc_0.083deg_P1D-m")
dest <- tempdir()
## download the first file from the file_tibble to 'dest'
cms_download_stac(file_tibble[1,, drop = FALSE], dest)
}
Run the code above in your browser using DataLab