Running examples in ‘mapmisc-Ex.R’ failed
The error most likely occurred in:

> ### Name: modis
> ### Title: MODIS tiles and projection
> ### Aliases: modis crsModis getModisRaster getModisTiles getDegreeRaster
> 
> ### ** Examples
> 
> 
> crsModis
[1] "PROJCRS[\"unknown\",\n    BASEGEOGCRS[\"unknown\",\n        DATUM[\"World Geodetic System 1984\",\n            ELLIPSOID[\"WGS 84\",6378137,298.257223563,\n                LENGTHUNIT[\"metre\",1]],\n            ID[\"EPSG\",6326]],\n        PRIMEM[\"Greenwich\",0,\n            ANGLEUNIT[\"degree\",0.0174532925199433],\n            ID[\"EPSG\",8901]]],\n    CONVERSION[\"unknown\",\n        METHOD[\"Sinusoidal\"],\n        PARAMETER[\"Longitude of natural origin\",0,\n            ANGLEUNIT[\"degree\",0.0174532925199433],\n            ID[\"EPSG\",8802]],\n        PARAMETER[\"False easting\",0,\n            LENGTHUNIT[\"metre\",1],\n            ID[\"EPSG\",8806]],\n        PARAMETER[\"False northing\",0,\n            LENGTHUNIT[\"metre\",1],\n            ID[\"EPSG\",8807]]],\n    CS[Cartesian,2],\n        AXIS[\"(E)\",east,\n            ORDER[1],\n            LENGTHUNIT[\"metre\",1,\n                ID[\"EPSG\",9001]]],\n        AXIS[\"(N)\",north,\n            ORDER[2],\n            LENGTHUNIT[\"metre\",1,\n                ID[\"EPSG\",9001]]]]"
> 
> myPointLL = vect(cbind(c(5:6),10:11), crs = crsLL)
> 
> 
> getModisTiles(myPointLL)
         ID x  y   ns   ew     tile
28265 28265 4 11 n011 e004 n011e004
28266 28266 5 11 n011 e005 n011e005
28267 28267 6 11 n011 e006 n011e006
28625 28625 4 10 n010 e004 n010e004
28626 28626 5 10 n010 e005 n010e005
28627 28627 6 10 n010 e006 n010e006
28985 28985 4  9 n009 e004 n009e004
28986 28986 5  9 n009 e005 n009e005
28987 28987 6  9 n009 e006 n009e006
> 
> getModisTiles(myPointLL, getDegreeRaster())
         ID x  y   ns   ew     tile
28265 28265 4 11 n011 e004 n011e004
28266 28266 5 11 n011 e005 n011e005
28267 28267 6 11 n011 e006 n011e006
28625 28625 4 10 n010 e004 n010e004
28626 28626 5 10 n010 e005 n010e005
28627 28627 6 10 n010 e006 n010e006
28985 28985 4  9 n009 e004 n009e004
28986 28986 5  9 n009 e005 n009e005
28987 28987 6  9 n009 e006 n009e006
> 
> 
> 
> modisUrl = 	'https://e4ftl01.cr.usgs.gov/MOTA/MCD12Q1.061/2002.01.01/'
> desiredTiles = paste0("(",
+ 	paste(getModisTiles(myPointLL, getModisRaster())[,'tile'], collapse='|'), 
+ 	").*.hdf$")
> 
> if(requireNamespace("RCurl", quietly=TRUE) & requireNamespace("XML", quietly=TRUE)) {
+ theFiles = 	grep(desiredTiles,
+ 	XML::getHTMLLinks(RCurl::getURL(
+ 	    modisUrl,ftp.use.epsv=FALSE,
+ 	    dirlistonly = TRUE)), value=TRUE)
+ paste0(modisUrl, theFiles)
+ }
Error in function (type, msg, asError = TRUE)  : 
  Failed to connect to e4ftl01.cr.usgs.gov port 443 after 131123 ms: Connection timed out
Calls: grep ... <Anonymous> -> <Anonymous> -> curlPerform -> <Anonymous> -> fun
Execution halted