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 <[email protected]> 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)
> <[email protected]> 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
> > [email protected]
> > 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.
>
_______________________________________________
R-br mailing list
[email protected]
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.
