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 <comunello.eder@gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]