http://toddwschneider.com/posts/analyzing-1-1-billion-nyc-taxi-and-uber-trips-with-a-vengeance/
list
cd <- c(); for(f in files){ fname <- paste(f,".txt",sep=""); page <- paste(pa,fname,sep="") test <- tryCatch(download.file(page,fname,method="auto"),error=function(e) e) if(is.integer(test)) { cat(f,"\n") } else { cd <- c(cd,f) } }