Boa tarde,<br><br>Estou tentando montar uma base de imagens de câmeras de trânsito usando o site da prefeitura de Salvador. Encontrei uns endereços que são atualizados frequentemente com imagens de diferentes câmeras. Eu consigo baixar essas imagens sem problemas usando o navegador (firefox e chrome); mas, quando faço download usando R, o arquivo vem corrompido ou danificado (apesar de que o tamanho é sempre coerente - uns 22kb).<br>
<br>Já testei em dois computadores com sistemas operacionais e ip's diferentes, mas dá na mesma sempre. O que está acontecendo?<br><br>#endereço da imagem: <a href="http://www.transalvador.salvador.ba.gov.br/Cam/c02/snap_c1.jpg">http://www.transalvador.salvador.ba.gov.br/Cam/c02/snap_c1.jpg</a><br>
download.file('<a href="http://www.transalvador.salvador.ba.gov.br/Cam/c02/snap_c1.jpg">http://www.transalvador.salvador.ba.gov.br/Cam/c02/snap_c1.jpg</a>', 'teste.jpg')<br><br>#mais uma: <a href="http://www.transalvador.salvador.ba.gov.br/Cam/c10/snap_c1.jpg">http://www.transalvador.salvador.ba.gov.br/Cam/c10/snap_c1.jpg</a><br>
download.file('<a href="http://www.transalvador.salvador.ba.gov.br/Cam/c10/snap_c1.jpg">http://www.transalvador.salvador.ba.gov.br/Cam/c10/snap_c1.jpg</a>', 'teste2.jpg')<br><br># o código inicial, que tem o mesmo problema:<br>
n <- 0<br>while (TRUE){<br>  download.file('<a href="http://www.transalvador.salvador.ba.gov.br/Cam/c06/snap_c1.jpg">http://www.transalvador.salvador.ba.gov.br/Cam/c06/snap_c1.jpg</a>', paste(as.numeric(Sys.time()), '.jpg', sep=''))<br>
  n <- n + 1<br>  cat("\n", n, "\n\n")<br>  Sys.sleep(30)<br>}<br><br>