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

Éder Comunello comunello.eder em gmail.com
Terça Outubro 8 17:04:40 BRT 2013


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 <c <comunello.eder em gmail.com>omunello.eder em gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20131008/15c8fa54/attachment.html>


Mais detalhes sobre a lista de discussão R-br