Jônatan,
Dentro do que eu fiz vc aconselharia e pensaria em modificar o que para melhorar?
Um grande abraço!
Paulo Henrique de A. S. Pimenta
Cel/WhatsApp/Telegram: +5511981318435
Sent from Mail for Windows 10
From: Jônatan
Sent: Friday, July 8, 2016 5:27 PM
To: Paulo Henrique Pimenta;
a lista Brasileira oficial de discussão do programa R.
Subject: Re: [R-br] Baixando dados do INMET com a biblioteca RCurl e bitops/Salvando arquivos em .txt
Olá Listeiros!
Estou com um grande problema e acho que vcs podem me ajudar! Estou usando um script criado por mim a partir das dicas da própria lista: http://r-br.2285057.n4.nabble.com/R-br-r-baixando-dados-inmet-td4660459.html na qual usei o código como template para automatizar o download dos dados do inmet. Infelizmente estou com alguns problemas, um deles é que só consigo usar o código no Windows, ou seja, no R do Windows e não do Linux (possuo o Windows 10 e o Ubuntu 16.04 no meu notebook).
Os erros no meu Linux são referentes a biblioteca RCurl que mesmo reinstalado várias vezes e usado com a biblioteca bitops continuam a não funcionar. Outro problema que tenho é o não conhecimento sobre como salvar os arquivos baixados em um .txt ao invés de alocar em variáveis como estou fazendo. Caso algum de vcs se interesse em mexer e melhorar o código segue ele abaixo:
####################################################################################################################
### <begin>
library(bitops)
library(RCurl)
####################################################################
dados_1 <- read.table(
"E:/inmet/estacoes_2.txt",
header=F,
sep="\t")
dados_1 <- data.frame(dados_1)
#names(dados_1) <- c("cidades", "estacoes")
######################################################################
# Links para login e dados
myURL1 <- "http://www.inmet.gov.br/projetos/rede/pesquisa/inicio.php"
for (NUM in 1:length(dados_1[,2])){
# Dados para acesso
myParams=list(
mCod="SEU EMAIL",
mSenha="SUA SENHA",
btnProcesso = " Acessar ")
myCurl <- getCurlHandle()
curlSetOpt(cookiejar="cookies.txt", useragent="Mozilla/5.0", followlocation=TRUE, curl=myCurl)
login <- postForm(myURL1, .params=myParams, curl=myCurl)
dados[NUM] <- getURLContent(myURL2[NUM], curl=myCurl)
exemplo[NUM] <- head(strwrap(dados[NUM], 70), 10000)
}
### <end>
###################################################################################################################
O arquivo estacoes_2.txt esta aqui: http://s000.tinyupload.com/?file_id=66921456922777880817
Se alguém tiver interesse em modificar para melhorar o código fique a vontade!
Um grande abraço a todos vcs!
Paulo.
Sent from Mail for Windows 10
_______________________________________________
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.