putz, esplicar com "s" é foda!!!! Correção explicar. kkkkkk On Mar 19 2022, at 4:49 pm, Fernando Souza <[email protected]> wrote: > 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.
