<html><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:12pt"><div>Éder,</div><div><br></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; background-color: transparent; font-style: normal;">Eu tive testando seu script, mas não consegui encontrar uma forma do RCurl resolver esse problema. Porque não tenta com o python? No python ficaria assim os comandos:</div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; background-color: transparent; font-style: normal;"><br></div><div style="background-color: transparent;">from ghost import Ghost</div><div style="background-color: transparent;">ghost = Ghost()</div><div style="background-color:
transparent;">ghost.open("http://hidroweb.ana.gov.br/Estacao.asp?Codigo=2254001")</div><div style="background-color: transparent;">ghost.evaluate("document.frmConsulta.cboTipoReg.value = '10'")</div><div style="background-color: transparent;"><span style="background-color: transparent;">ghost.evaluate("javascript:criarArq(2254001,2)")</span> </div><div></div><div> </div><div>Att.</div><div><br></div><div><font face="times new roman, new york, times, serif">Alisson Lucrécio da Costa</font></div><div class="yahoo_quoted" style="display: block;"> <br> <br> <div style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 12pt;"> <div style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 12pt;"> <div dir="ltr"> <font size="2" face="Arial"> On Tuesday, October 8, 2013 5:04 PM, Éder Comunello <comunello.eder@gmail.com> wrote:<br>
</font> </div> <div class="y_msg_container"><div id="yiv8044382939"><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=""><a rel="nofollow" target="_blank" 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 rel="nofollow" target="_blank" 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="">### URL resultante da operação via browser:</span><br>
</div><div><font face="courier new, monospace">### myURL2 <- '<a rel="nofollow" target="_blank" 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="">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="">### <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 rel="nofollow" ymailto="mailto:comunello.eder@gmail.com" target="_blank" href="mailto:comunello.eder@gmail.com">c</a><a rel="nofollow" ymailto="mailto:omunello.eder@gmail.com" target="_blank" href="mailto:omunello.eder@gmail.com">omunello.eder@gmail.com</a>> <br>
Dourados, MS - [22 16.5'S, 54 49'W]<br></div>
</div></div></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> </div></body></html>