
É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@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@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W] _______________________________________________ R-br mailing list R-br@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.