[R-br] r baixando dados inmet

Terça Setembro 24 11:10:19 BRT 2013

Caro Éder,
Bom dia.

Eu consegui.

Obrigado.

Alisson Lucrécio da Costa

________________________________
 From: Éder Comunello <comunello.eder em gmail.com>
To: r-br em listas.c3sl.ufpr.br 
Sent: Tuesday, September 24, 2013 10:23 AM
Subject: Re: [R-br] r baixando dados inmet

Bom dia!

Também tenho interesse no tópico, pois costumava baixar os arquivos um a um, diretamente no site! :D

Examinando o arquivo da lista, tem uma discussão sobre o RCurl em:

<http://r-br.2285057.n4.nabble.com/R-br-RCurl-td4659610.html>

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:

### <begin>
library(RCurl)

# Links para login e dados
myURL1 <- "http://www.inmet.gov.br/projetos/rede/pesquisa/inicio.php"
myURL2 <- "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,,,,,"
### como é só um teste, encurtei a série pesquisada (mRelDtInicio=01/01/2012)

# Dados para acesso
myParams=list(
  mCod="seuemail", ### alterar!
  mSenha="suasenha", ### alterar!
  btnProcesso = " Acessar ")

myCurl <- getCurlHandle()
curlSetOpt(cookiejar="cookies.txt", useragent="Mozilla/5.0", followlocation=TRUE, curl=myCurl)

login <- postForm(myURL1, .params=myParams, curl=myCurl)
dados <- getURLContent(myURL2, curl=myCurl)
head(strwrap(dados, 70), 30)
### <end>

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...

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

Éder Comunello

###

Uma saída parcial do conteúdo armazenado em dados:

> head(strwrap(dados, 70), 30)
 [1] "<html><meta http-equiv=\"Content-Type\" content=\"text/html;"                                               
 [2] "charset=iso-8859-1\"> <head> <title>Estação - 83595</title> <!-- FACE"                                      
 [3] "BOX -->\r <script src=\"facebox/js/jquery.js\""                                                             
 [4] "type=\"text/javascript\"></script>\r <link"                                                                 
 [5] "href=\"facebox/styles/facebox.css\" media=\"screen\" rel=\"stylesheet\""                                    
 [6] "type=\"text/css\" >\r \r <script src=\"facebox/js/facebox.js\""                                             
 [7] "type=\"text/javascript\"></script>\r <script type=\"text/javascript\">\r"                                   
 [8] "jQuery(document).ready(function($) {\r $('a[rel*=facebox]').facebox({\r"                                    
 [9] "loading_image : 'loading.gif',\r close_image : 'closelabel.gif'})\r"                                        
[10] "$('area[rel*=facebox]').facebox({\r loading_image : 'loading.gif',\r"                                       
[11] "close_image : 'closelabel.gif'})\r })\r </script>\r <script"                                                
[12] "type=\"text/javascript\">\r function showFoto(src) {\r //criando um link"                                   
[13] "falso, para o LightBox captar as informações\r var a_false ="                                               
[14] "document.createElement(\"A\");\r a_false.rel = \"lightbox\";\r a_false.href"                                
[15] "= src;\r //chamando a função do lightbox responsável pelo início das"                                       
[16] "ações\r myLightbox.start(a_false);\r //anulando o link\r a_false ="                                         
[17] "null;\r }\r </script>\r </head> <pre>-------------------- BDMEP - INMET"                                    
[18] "-------------------- Estação : AIMORES - MG (OMM: 83595) Latitude"                                          
[19] "(graus) : -19.49 Longitude (graus) : -41.07 Altitude (metros): 82.74"                                       
[20] "Estação Operante Inicio de operação: 01/06/1972 Periodo solicitado"                                         
[21] "dos dados: 01/01/2012 a 01/01/2013 Os dados listados abaixo são os"                                         
[22] "que encontram-se digitados no BDMEP -------------------- Obs.: Os"                                          
[23] "dados aparecem separados por ; (ponto e vírgula) no formato txt."                                           
[24] "Para o formato planilha XLS, <A HREF=\"instrucao.html\" TARGET=\"_top\""                                    
[25] "rel=\"facebox\">siga as instruções</a> --------------------"                                                
[26] "Estacao;Data;Hora;TempBulboSeco;UmidadeRelativa;PressaoAtmEstacao;DirecaoVento;VelocidadeVentoNebulosidade;"
[27] "83595;01/01/2012;0000;25.2;83;1004.8;14;1;8;"                                                               
[28] "83595;01/01/2012;1200;26;84;1004.9;9;1;10;"                                                                 
[29] "83595;01/01/2012;1800;27;91;1000;9;1;10;"                                                                   
[30] "83595;02/01/2012;0000;25;92;1003;14;1;10;"                                                                  
_______________________________________________
R-br mailing list
R-br em listas.c3sl.ufpr.br
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.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130924/88a2ad8e/attachment-0001.html>