Esqueci de esplicar, no código os arquivos serão salvos no diretorio de trabalho informado. O nome dos arquivos é passado por parametros na função baixa_bancos(). No exemplo configurei o nome para ser o mesmo do banco de dados. Para personalizar o banco de dados basta alterar a função baixa_bancos() para:
baixa_bancos<-function(k1,k2, namefile){
dados<-read.csv(paste0('https://corgis-edu.github.io/corgis/datasets/csv/', k1 ,'/', k2 , ".csv",sep=""),
header=T, sep=",", dec =".", encoding = "UTF-8")
write.csv(dados,paste0(namefile,"_",k1,"_s_",k2))
}
Altere a função paste0() para o formato no nome que desejar
Espero ter ajudado.
On Mar 19 2022, at 4:38 pm, Fernando Souza <nandodesouza@gmail.com> wrote:
Veja se assim te ajuda. Peguei um banco de dados público na rede para usar como exemplo. Neste código o nome dos arquivos terão o mesmo nome do banco de dados.
##Configure o diretorio de trabalho de acordo com o seu sistema windows ou linux
setwd("/home/fernando/Downloads/ajuda")
##banco de dados exemplo: https://corgis-edu.github.io/corgis/csv/
baixa_bancos<-function(k1,k2, namefile){
dados<-read.csv(paste0('https://corgis-edu.github.io/corgis/datasets/csv/', k1 ,'/', k2 , ".csv",sep=""),
header=T, sep=",", dec =".", encoding = "UTF-8")
write.csv(dados,namefile)
}
bancoDados <- c("aids","broadway","cars","airlines","business_dynamics")
for(i in bancoDados){
baixa_bancos(i,i,i)
}
On Mar 18 2022, at 2:45 pm, Diogo Jerônimo por (R-br) <r-br@listas.c3sl.ufpr.br> wrote:
Prezados boa tarde!!! Lá vou eu incomodar os amigos, rs... Estou fazendo uma macro para baixar dados "*.csv" de uma fonte URL, com um formato semelhante a esse (desculpa, não consegui fazer um reproduzível), onde k1 designa meses do ano e k2 é um conjunto de cinco (ou mais) substâncias:
baixa_bancos<-function(k1,k2){
dados<-read.csv2(paste('http://.../arquivo_m", k1 ,"_s", k2 ,".csv'",sep=""),
header=T, sep="|", dec =".", encoding = "UTF-8")
}
A chamada da macro fica algo assim:
a<-seq(1:12);b<-seq(1:5)
for(i in 1:length(a))
for(j in 1:length(b))
{
k1<-a[[i]]
k2<-b[[j]]
baixa_bancos(k1,k2)
}
A dúvida: se eu executar assim a macro, dados vai sempre ser subscrito pelas informações de outro mês e outra substância. Assim, queria que o arquivo (tabela) fosse salvo no ambiente RStudio de forma similar abaixo (obs: sei que não está certo, é mais para entender o que estou precisando):
paste("arquivo_m",k1,"_s",k2)<-dados
E em seguida reunir todos eles via rbind ou outro comando. Consegui explicar certo? Se sim, alguém saberia como resolver?
Obrigado e bom fim-de-semana!!!
Diogo Jerônimo
Bacharel em Ciências Estatísticas - ENCE/IBGE
Mestre em Metrologia - PUC-Rio/PósMQI
http://lattes.cnpq.br/8996149312896520
_______________________________________________
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.