if (FALSE) {
## Assuming that Copernicus account details are provided as `options`
cop_ftp_files <- copernicus_ftp_list("GLOBAL_OMI_WMHE_heattrp")
destination <- tempdir()
copernicus_ftp_get(cop_ftp_files$url[[1]], destination)
}
Run the code above in your browser using DataLab