# NOT RUN {
crsModis
myPointLL = SpatialPoints(cbind(c(5:6),10:11), proj4string = crsLL)
if(requireNamespace("rgdal", quietly=TRUE)) {
getModisTiles(myPointLL)
getModisTiles(myPointLL, mapmisc::degreeRaster)
}
modisUrl = 'ftp://ladsweb.nascom.nasa.gov/allData/5/MCD12Q1/2002/001/'
# }
# NOT RUN {
paste(modisUrl,
grep(
paste(getModisTiles(myPointLL)[,'tile'], collapse='|'),
unlist(strsplit(RCurl::getURL(
modisUrl,ftp.use.epsv=TRUE,
dirlistonly = TRUE), '\n')),
value=TRUE), sep='')
# }
Run the code above in your browser using DataLab