<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Olympio,</div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Um primeiro passo na direção de uma solução definitiva<span style="font-family:monospace">.</span></div><div class="gmail_default"><span style="font-family:monospace"><br></span></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><span style="font-family:monospace">#-----------------------------------------------------------------------<br><br># Abrir página.<br>browseURL("<a href="http://www.tse.jus.br/eleitor/biometria/biometria-atual-do-dia">http://www.tse.jus.br/eleitor/biometria/biometria-atual-do-dia</a>")<br><br># 1. Use F12 para abrir as ferramentas de desenvolvimento do navegador.<br># 2. Visite aba "Network".<br># 3. Limpe todos os eventos (clique na lixeira).<br># 4. Na página, clique no botão de Download do arquivo.<br># 5. Inspecione na aba "Network" a requisição.<br># 6. No "Headers" da requisição, copie o "Request URL".<br># 7. Use o "Request URL" para baixar o arquivo e escrever em disco.<br># 8. Note que o existem partes comuns no "href" dentro da página e no<br>#    endereço da "Request URL". Com isso você pode tentar prever a<br>#    "Request URL" pelo código fonte da página HTML.<br><br># href do HTML: "javascript:window.location.href=apex.server.url({p_request: 'FLOW_EXCEL_OUTPUT_R69876138832319545_pt-br'},2); null;"<br># Request URL: "<a href="http://inter04.tse.jus.br/ords/dwtse/wwv_flow.show?p_flow_id=164&p_flow_step_id=2&p_instance=10013814358375&p_debug=&p_request=FLOW_EXCEL_OUTPUT_R69876138832319545_pt-br">http://inter04.tse.jus.br/ords/dwtse/wwv_flow.show?p_flow_id=164&p_flow_step_id=2&p_instance=10013814358375&p_debug=&p_request=FLOW_EXCEL_OUTPUT_R69876138832319545_pt-br</a>"<br><br>library(httr)<br><br>url <- "<a href="http://inter04.tse.jus.br/ords/dwtse/wwv_flow.show?p_flow_id=164&p_flow_step_id=2&p_instance=10013814358375&p_debug=&p_request=FLOW_EXCEL_OUTPUT_R69876138832319545_pt-br">http://inter04.tse.jus.br/ords/dwtse/wwv_flow.show?p_flow_id=164&p_flow_step_id=2&p_instance=10013814358375&p_debug=&p_request=FLOW_EXCEL_OUTPUT_R69876138832319545_pt-br</a>"<br><br>u <- GET(url)                          # Faz requisição.<br>content(u)                             # Conteúdo binário.<br>writeBin(content(u), con = "file.xls") # Escreve em disco.<br><br># Escrevendo em disco direto.<br>GET(url, write_disk("file2.xls"))<br><br>#-----------------------------------------------------------------------</span><br></div><br><div><span class="gmail_default" style="font-family:trebuchet ms,sans-serif">À disposição.</span></div><div><span class="gmail_default" style="font-family:trebuchet ms,sans-serif">Walmes.</span></div></div>