[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