Corrigindo um pequeno erro na condicional...
if (sum(sapply(basename(links), file.exists))<3) {
lapply(links, function(a) tryCatch(download.file(a,
dest=basename(a), mode='wb'),
error=function(...)
message("ERRO!")))} else message('OK!')
Éder Comunello <c <[email protected]>[email protected]>
Dourados, MS - [22 16.5'S, 54 49'W]
_______________________________________________
R-br mailing list
[email protected]
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código
mínimo reproduzível.
