tokens <- gsub("^.*/s/","",dirname(links))
fileNames <- basename(links)
newLinks
for (a in newLinks) {
tryCatch(download.file(a, dest=basename(a), mode='wb'),
error=function(...) print("Falha no download!"))}
borda=read.table(file="borda_pesq_r.txt",header=F)
borda
class(borda)
### </code>
Obrigado,