<div dir="ltr">Colegas, boa tarde!<div><br></div><div>Estou precisando de ajuda com relação ao pacote <i>RCurl</i>. </div><div><br></div><div>Tomando por exemplo o endereço <<span style="font-family:'courier new',monospace"><a href="http://hidroweb.ana.gov.br/Estacao.asp?Codigo=2254001">http://hidroweb.ana.gov.br/Estacao.asp?Codigo=2254001</a></span>>, ao acessá-lo via <i>browser </i>pode-se notar dois botões que executam trechos de código em <i>javascript </i>e geram links para o <i>download </i>de arquivos de dados:</div>
<div>* Botão [Arquivo Access] remete ao comando "javascript:criarArq(2254001,2)"<br></div><div>* Botão [Arquivo Texto] remete ao comando "javascript:criarArq(2254001,1)"</div><div><br></div><div>Estou tentando usar o <i>RCurl </i>para passar diretamente os parâmetros para criação do <i>link </i>para o "Arquivo Texto".  Isto feito, posteriormente pretendo usar o <i>link </i>gerado para <i>download</i> dos dados. Contudo, não estou tendo sucesso e ficarei muito grato por qualquer ajuda.</div>
<div><br></div><div>Abaixo segue o código que tentei aplicar:<br><div><br></div><div><div><font face="courier new, monospace">### <BEGIN> ###</font></div><div><font face="courier new, monospace">library(RCurl)</font></div>
<div><font face="courier new, monospace">myURL   <- '<a href="http://hidroweb.ana.gov.br/Estacao.asp?Codigo=2254001">http://hidroweb.ana.gov.br/Estacao.asp?Codigo=2254001</a>'</font></div><div><br></div><div><span style="font-family:'courier new',monospace">### URL resultante da operação via browser:</span><br>
</div><div><font face="courier new, monospace">### myURL2   <- '<a href="http://hidroweb.ana.gov.br/Estacao.asp?Codigo=2254001&CriaArq=true&TipoArq=1">http://hidroweb.ana.gov.br/Estacao.asp?Codigo=2254001&CriaArq=true&TipoArq=1</a>'<br>
</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">myCurl   <- getCurlHandle(cookiefile = "myCookies.txt", </font></div><div><font face="courier new, monospace">                         useragent="Mozilla/5.0",</font></div>
<div><font face="courier new, monospace">                         verbose = T,</font></div><div><font face="courier new, monospace">                         autoreferer = T,</font></div><div><font face="courier new, monospace">                         followlocation = T)</font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">myParams <- list(Codigo=2254001, CriaArq='true', TipoArq=1)</font></div><div><font face="courier new, monospace">### Codigo:     ID da estação</font></div>
<div><font face="courier new, monospace">### CriaArq:    true (executa função?), </font></div><div><font face="courier new, monospace">### TipoArq:    1 (tipo texto) e 2 (Access)</font></div><div><br></div><div><span style="font-family:'courier new',monospace">postForm(myURL, .params=myParams, curl=myCurl)</span><br>
</div><div><font face="courier new, monospace">getURL(myURL, curl=myCurl) </font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### Operação falha, retornando página original!</font></div>
<div><font face="courier new, monospace">### Em caso de sucesso embutiria no código um link no formato: </font></div><div><span style="font-family:'courier new',monospace">### <a href="ARQ/A20131008-164720-14/CHUVAS.ZIP"></span></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">### <END> ###</font></div><div><br></div><div><br clear="all"><div><br></div>-- <br><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>
Dourados, MS - [22 16.5'S, 54 49'W]<br></div>
</div></div></div></div>