[R-br] RCurl: passando parâmetros e executando função javascript

[Alisson Lucrecio]

Éder,

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:

from ghost import Ghost
ghost = Ghost()
ghost.open("http://hidroweb.ana.gov.br/Estacao.asp?Codigo=2254001")
ghost.evaluate("document.frmConsulta.cboTipoReg.value = '10'")
ghost.evaluate("javascript:criarArq(2254001,2)") 
 
Att.

Alisson Lucrécio da Costa



On Tuesday, October 8, 2013 5:04 PM, Éder Comunello <comunello.eder em gmail.com> wrote:
 
Colegas, boa tarde!

Estou precisando de ajuda com relação ao pacote RCurl. 

Tomando por exemplo o endereço <http://hidroweb.ana.gov.br/Estacao.asp?Codigo=2254001>, ao acessá-lo via browser pode-se notar dois botões que executam trechos de código em javascript e geram links para o download de arquivos de dados:
* Botão [Arquivo Access] remete ao comando "javascript:criarArq(2254001,2)"

* Botão [Arquivo Texto] remete ao comando "javascript:criarArq(2254001,1)"

Estou tentando usar o RCurl para passar diretamente os parâmetros para criação do link para o "Arquivo Texto".  Isto feito, posteriormente pretendo usar o link gerado para download dos dados. Contudo, não estou tendo sucesso e ficarei muito grato por qualquer ajuda.

Abaixo segue o código que tentei aplicar:


### <BEGIN> ###
library(RCurl)
myURL   <- 'http://hidroweb.ana.gov.br/Estacao.asp?Codigo=2254001'

### URL resultante da operação via browser:

### myURL2   <- 'http://hidroweb.ana.gov.br/Estacao.asp?Codigo=2254001&CriaArq=true&TipoArq=1'


myCurl   <- getCurlHandle(cookiefile = "myCookies.txt", 
                         useragent="Mozilla/5.0",
                         verbose = T,
                         autoreferer = T,
                         followlocation = T)

myParams <- list(Codigo=2254001, CriaArq='true', TipoArq=1)
### Codigo:     ID da estação
### CriaArq:    true (executa função?), 
### TipoArq:    1 (tipo texto) e 2 (Access)

postForm(myURL, .params=myParams, curl=myCurl)

getURL(myURL, curl=myCurl) 

### Operação falha, retornando página original!
### Em caso de sucesso embutiria no código um link no formato: 
### <a href="ARQ/A20131008-164720-14/CHUVAS.ZIP">

### <END> ###



-- 

Éder Comunello <comunello.eder em gmail.com> 
Dourados, MS - [22 16.5'S, 54 49'W]

_______________________________________________
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/20131009/da938987/attachment.html>