# NOT RUN {
# Fetch AHI VIS (true colour) / IR (Ch13 greyscale) composite 1km FD
# GEOS GIS raster stack for most recent single scan available
imagery <- get_satellite_imagery(product_id = "IDE00425", scans = 1)
# Get a list of available image files and use that to specify files for
# download, downloading the two most recent files available
avail <- get_available_imagery(product_id = "IDE00425")
imagery <- get_satellite_imagery(product_id = avail, scans = 2)
# }
Run the code above in your browser using DataLab