if (FALSE) {
# Retrieve and view EPIC images from April 1, 2024
epic_data <- get_epic_earth_images(date = "2024-04-01", api_key = "your_actual_api_key")
# Retrieve and save EPIC images to Desktop/EPIC_Images
epic_data_saved <- get_epic_earth_images(
date = "2024-04-01",
api_key = "DEMO_KEY",
folder_name = "EPIC_Images"
)
}
Run the code above in your browser using DataLab