madridNFI <- system.file("ifn3p28_tcm30-293962.zip", package="basifoR")
tfmad <- urlToTemp(madridNFI)
tfmad
## Internet resources fail gracefully with an informative message if
## the resource is not available or has changed (and not give a check
## warning nor error):
path <- '/es/biodiversidad/servicios/banco-datos-naturaleza/090471228013cbbd_tcm30-278511.zip'
url2 <- httr::modify_url("https://www.miteco.gob.es", path = path)
tfmad <- urlToTemp(url2, timeOut=timeout(1))
Run the code above in your browser using DataLab