# NOT RUN {
# Simple case
fileName <- '/path/to/file/MOD17A2.A2008097.h11v09.005.2008142064019.hdf'
getMODISinfo(fileName)
# Multile files
fileNames <- c('/path/to/file/MOD17A2.A2008097.h11v09.005.2008142064019.hdf', 'MOD17A2.A2008097.h11v09.005.2008164064019.tif')
getMODISinfo(fileNames)
# Get only a vector of dates
getMODISinfo(fileNames)$date
# }
Run the code above in your browser using DataLab