Fail downloading GADM data

Hi, I tried to dowload data from GADM using getData function but didn't work. Does any one know what is wrong?

mex <- raster::getData('GADM', country='MEX', level=1)

trying URL 'https://biogeo.ucdavis.edu/data/gadm3.6/Rsp/gadm36_MEX_1_sp.rds'
Error in utils::download.file(url = aurl, destfile = fn, method = "auto", :
cannot open URL 'https://biogeo.ucdavis.edu/data/gadm3.6/Rsp/gadm36_MEX_1_sp.rds'
In addition: Warning message:
In utils::download.file(url = aurl, destfile = fn, method = "auto", :
InternetOpenUrl failed: 'A connection with the server could not be established'