<html><body><div style="color:#000; background-color:#fff; font-family:times new roman, new york, times, serif;font-size:12pt"><div>Caro Éder,</div><div>Bom dia.</div><div><br></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: 'times new roman', 'new york', times, serif; background-color: transparent; font-style: normal;">Eu consegui.</div><div><br></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: 'times new roman', 'new york', times, serif; background-color: transparent; font-style: normal;">Obrigado.</div><div></div><div> </div><div><font face="times new roman, new york, times, serif">Alisson Lucrécio da Costa</font><br></div> <div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt;"> <div style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt;"> <div dir="ltr"> <hr size="1"> <font size="2" face="Arial"> <b><span
style="font-weight:bold;">From:</span></b> Éder Comunello <comunello.eder@gmail.com><br> <b><span style="font-weight: bold;">To:</span></b> r-br@listas.c3sl.ufpr.br <br> <b><span style="font-weight: bold;">Sent:</span></b> Tuesday, September 24, 2013 10:23 AM<br> <b><span style="font-weight: bold;">Subject:</span></b> Re: [R-br] r baixando dados inmet<br> </font> </div> <div class="y_msg_container"><br><div id="yiv1115776940"><div dir="ltr">Bom dia!<br><br>Também tenho interesse no tópico, pois costumava baixar os arquivos um a um, diretamente no site! :D<br><br>Examinando o arquivo da lista, tem uma discussão sobre o RCurl em:<br><br><font face="courier new, monospace"><<a rel="nofollow" target="_blank" href="http://r-br.2285057.n4.nabble.com/R-br-RCurl-td4659610.html">http://r-br.2285057.n4.nabble.com/R-br-RCurl-td4659610.html</a>></font><div>
<br>Seguindo a discussão de Daniel Marcelino e Raphael Saldanha, fiz umas adaptações no código postado por eles para o caso em questão:<br><br><font face="courier new, monospace">### <begin><br>library(RCurl)<br><br>
# Links para login e dados<br>myURL1 <- "<a rel="nofollow" target="_blank" href="http://www.inmet.gov.br/projetos/rede/pesquisa/inicio.php">http://www.inmet.gov.br/projetos/rede/pesquisa/inicio.php</a>"<br>myURL2 <- "<a rel="nofollow" target="_blank" href="http://www.inmet.gov.br/projetos/rede/pesquisa/gera_serie_txt.php?&mRelEstacao=83595&btnProcesso=serie&mRelDtInicio=01/01/2012&mRelDtFim=01/01/2013&mAtributos=1,,,,1,1,,1,1,,,1,,,,,">http://www.inmet.gov.br/projetos/rede/pesquisa/gera_serie_txt.php?&mRelEstacao=83595&btnProcesso=serie&mRelDtInicio=01/01/2012&mRelDtFim=01/01/2013&mAtributos=1,,,,1,1,,1,1,,,1,,,,,</a>"<br>
### como é só um teste, encurtei a série pesquisada (mRelDtInicio=01/01/2012)<br><br># Dados para acesso<br>myParams=list(<br> mCod="seuemail", ### alterar!<br> mSenha="suasenha", ### alterar!<br> btnProcesso = " Acessar ")<br>
<br>myCurl <- getCurlHandle()<br>curlSetOpt(cookiejar="cookies.txt", useragent="Mozilla/5.0", followlocation=TRUE, curl=myCurl)<br><br>login <- postForm(myURL1, .params=myParams, curl=myCurl)<br>
dados <- getURLContent(myURL2, curl=myCurl)<br>head(strwrap(dados, 70), 30)<br>### <end></font><br><br>O código acima faz o login e baixa os dados de um único exemplo (myURL2). Tá testado e funcionando!!! Logicamente requer cadastro no BDMEP...<br>
<br>Agora falta entrar com a limpeza e importação do código armazenado na variável dados e automatizar a geração de links para dados (basicamente mudar mRelEstacao, mRelDtInicio e .mRelDtFim em cada link). Mas acredito que já seja um começo! :D</div>
<div><br></div><div>Éder Comunello</div><div><br></div><div>###<br><br>Uma saída parcial do conteúdo armazenado em dados:</div><div><br><font face="courier new, monospace">> head(strwrap(dados, 70), 30)<br> [1] "<html><meta http-equiv=\"Content-Type\" content=\"text/html;" <br>
[2] "charset=iso-8859-1\"> <head> <title>Estação - 83595</title> <!-- FACE" <br> [3] "BOX -->\r <script src=\"facebox/js/jquery.js\"" <br>
[4] "type=\"text/javascript\"></script>\r <link" <br> [5] "href=\"facebox/styles/facebox.css\" media=\"screen\" rel=\"stylesheet\"" <br>
[6] "type=\"text/css\" >\r \r <script src=\"facebox/js/facebox.js\"" <br> [7] "type=\"text/javascript\"></script>\r <script type=\"text/javascript\">\r" <br>
[8] "jQuery(document).ready(function($) {\r $('a[rel*=facebox]').facebox({\r" <br> [9] "loading_image : 'loading.gif',\r close_image : 'closelabel.gif'})\r" <br>
[10] "$('area[rel*=facebox]').facebox({\r loading_image : 'loading.gif',\r" <br>[11] "close_image : 'closelabel.gif'})\r })\r </script>\r <script" <br>
[12] "type=\"text/javascript\">\r function showFoto(src) {\r //criando um link" <br>[13] "falso, para o LightBox captar as informações\r var a_false =" <br>
[14] "document.createElement(\"A\");\r a_false.rel = \"lightbox\";\r a_false.href" <br>[15] "= src;\r //chamando a função do lightbox responsável pelo início das" <br>
[16] "ações\r myLightbox.start(a_false);\r //anulando o link\r a_false =" <br>[17] "null;\r }\r </script>\r </head> <pre>-------------------- BDMEP - INMET" <br>
[18] "-------------------- Estação : AIMORES - MG (OMM: 83595) Latitude" <br>[19] "(graus) : -19.49 Longitude (graus) : -41.07 Altitude (metros): 82.74" <br>
[20] "Estação Operante Inicio de operação: 01/06/1972 Periodo solicitado" <br>[21] "dos dados: 01/01/2012 a 01/01/2013 Os dados listados abaixo são os" <br>
[22] "que encontram-se digitados no BDMEP -------------------- Obs.: Os" <br>[23] "dados aparecem separados por ; (ponto e vírgula) no formato txt." <br>
[24] "Para o formato planilha XLS, <A HREF=\"instrucao.html\" TARGET=\"_top\"" <br>[25] "rel=\"facebox\">siga as instruções</a> --------------------" <br>
[26] "Estacao;Data;Hora;TempBulboSeco;UmidadeRelativa;PressaoAtmEstacao;DirecaoVento;VelocidadeVentoNebulosidade;"<br>[27] "83595;01/01/2012;0000;25.2;83;1004.8;14;1;8;" <br>
[28] "83595;01/01/2012;1200;26;84;1004.9;9;1;10;" <br>[29] "83595;01/01/2012;1800;27;91;1000;9;1;10;" <br>
[30] "83595;02/01/2012;0000;25;92;1003;14;1;10;" </font></div></div></div><br>_______________________________________________<br>R-br mailing list<br><a ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br><br></div> </div> </div> </div></body></html>