<div>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<span data-emoji-typing="true">:</span> </div><br><div><span data-emoji-typing="true">baixa_bancos<-function(k1,k2, namefile){</span></div><div><span data-emoji-typing="true">dados<-read.csv(paste0('https://corgis-edu.github.io/corgis/datasets/csv/', k1 ,'/', k2 , ".csv",sep=""),</span></div><div><span data-emoji-typing="true">                 header=T, sep=",", dec =".", encoding = "UTF-8")</span></div><div><span data-emoji-typing="true">write.csv(dados,paste0(namefile,"_",k1,"_s_",k2))</span></div><div><span data-emoji-typing="true">}</span></div><br><div>Altere a função paste0() para o formato no nome que desejar</div><br><div>Espero ter ajudado.</div><br><br><div class="gmail_quote_attribution">On Mar 19 2022, at 4:38 pm, Fernando Souza <nandodesouza@gmail.com> wrote:</div><blockquote><div>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.</div><br><div>##Configure o diretorio de trabalho de acordo com o seu sistema windows ou linux</div><div>setwd("/home/fernando/Downloads/ajuda")</div><br><div>##banco de dados exemplo: https://corgis-edu.github.io/corgis/csv/</div><br><div>baixa_bancos<-function(k1,k2, namefile){</div><div>dados<-read.csv(paste0('https://corgis-edu.github.io/corgis/datasets/csv/', k1 ,'/', k2 , ".csv",sep=""),</div><div>                 header=T, sep=",", dec =".", encoding = "UTF-8")</div><div>write.csv(dados,namefile)</div><div>}</div><br><div>bancoDados <- c("aids","broadway","cars","airlines","business_dynamics")</div><br><div>for(i in bancoDados){  </div><br><div>        baixa_bancos(i,i,i)     </div><div>   </div><br><div>}</div><br><br><br><div class="gmail_quote_attribution">On Mar 18 2022, at 2:45 pm, Diogo Jerônimo por (R-br) <r-br@listas.c3sl.ufpr.br> wrote:</div><blockquote><div class="ydp523c4ea8yahoo-style-wrap"><div><div><div><font style="font-size:16px"><font style="font-family:"bookman old style", "new york", times, serif">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: </font></font></div><div><font style="font-size:16px"><font style="font-family:"bookman old style", "new york", times, serif"><span style="color:rgb(128, 128, 128)"><font size="1">baixa_bancos<-function(k1,k2){</font></span></font></font></div><div><font style="font-size:16px"><font style="font-family:"bookman old style", "new york", times, serif"><span style="color:rgb(128, 128, 128)"><font size="1">dados<-read.csv2(paste('http://.../arquivo_m", k1 ,"_s", k2 ,".csv'",sep=""),</font></span></font></font></div><div><font style="font-size:16px"><font style="font-family:"bookman old style", "new york", times, serif"><span style="color:rgb(128, 128, 128)"><font size="1">header=T, sep="|", dec =".", encoding = "UTF-8")</font></span></font></font></div><div><font style="font-size:16px"><font style="font-family:"bookman old style", "new york", times, serif"><span style="color:rgb(128, 128, 128)"><font size="1">} </font></span></font></font></div><br></div><div><div><font style="font-size:16px"><font style="font-family:"bookman old style", "new york", times, serif"><font size="3">A chamada da macro fica algo assim:</font></font></font></div><div><font style="font-size:16px"><font style="font-size:x-small"><font style="font-family:"bookman old style", "new york", times, serif"><span style="color:rgb(128, 128, 128)">a<-seq(1:12);b<-seq(1:5)</span></font></font></font></div><div><font style="font-size:16px"><font style="font-size:x-small"><font style="font-family:"bookman old style", "new york", times, serif"><span style="color:rgb(128, 128, 128)">for(i in 1:length(a))</span></font></font></font></div><div><font style="font-size:16px"><font style="font-size:x-small"><font style="font-family:"bookman old style", "new york", times, serif"><span style="color:rgb(128, 128, 128)">for(j in 1:length(b))</span></font></font></font></div><div><font style="font-size:16px"><font style="font-size:x-small"><font style="font-family:"bookman old style", "new york", times, serif"><span style="color:rgb(128, 128, 128)">{</span></font></font></font></div><div><font style="font-size:16px"><font style="font-size:x-small"><font style="font-family:"bookman old style", "new york", times, serif"><span style="color:rgb(128, 128, 128)">k1<-a[[i]]</span></font></font></font></div><div><font style="font-size:16px"><font style="font-size:x-small"><font style="font-family:"bookman old style", "new york", times, serif"><span style="color:rgb(128, 128, 128)">k2<-b[[j]]</span></font></font></font></div><div><font style="font-size:16px"><font style="font-size:x-small"><font style="font-family:"bookman old style", "new york", times, serif"><span style="color:rgb(128, 128, 128)">baixa_bancos(k1,k2)</span></font></font></font></div><div><font style="font-size:16px"><font style="font-size:x-small"><font style="font-family:"bookman old style", "new york", times, serif"><span style="color:rgb(128, 128, 128)">}</span></font></font></font></div><div><br></div><div><font style="font-size:16px"><font style="font-family:"bookman old style", "new york", times, serif">A dúvida: se eu executar assim a macro, </font></font><font style="font-size:16px"><font style="font-family:"bookman old style", "new york", times, serif"><span style="color:rgb(205, 35, 44)"><strong>dados</strong></span></font></font><font style="font-size:16px"><font style="font-family:"bookman old style", "new york", times, serif"> 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):</font></font></div><div><div><font style="font-size:16px"><font style="font-family:"bookman old style", "new york", times, serif"><font style="font-size:x-small"><span style="color:rgb(128, 128, 128)"><strong>paste("arquivo_m",k1,"_s",k2)<-dados</strong></span></font></font></font></div></div><div><br></div><div><font style="font-size:16px"><font style="font-family:"bookman old style", "new york", times, serif">E em seguida </font></font><font style="font-size:16px"><font style="font-family:"bookman old style", "new york", times, serif"><strong>reunir todos eles via rbind</strong></font></font><font style="font-size:16px"><font style="font-family:"bookman old style", "new york", times, serif"> ou outro comando. Consegui explicar certo? Se sim, alguém saberia como resolver?</font></font></div><div><br></div><div><font style="font-size:16px"><font style="font-family:"bookman old style", "new york", times, serif">Obrigado e bom fim-de-semana!!!</font></font></div><div><br></div><div><font style="font-size:16px"><font style="font-family:"bookman old style", "new york", times, serif"><em><span style="color:rgb(0, 0, 191)"><font style="font-size:medium"><font style="font-family:"Courier New", courier, monaco, monospace, sans-serif">Diogo Jerônimo</font></font></span></em></font></font></div></div></div><div class="ydp523c4ea8signature"><div><div><font style="font-family:"bookman old style", "new york", times, serif"><font style="font-size:16px"><font style="font-family:Helvetica, Arial, sans-serif"><em><span style="color:rgb(0, 0, 191)"><font style="font-size:medium"><font style="font-family:"Courier New", courier, monaco, monospace, sans-serif">Bacharel em Ciências Estatísticas - ENCE/IBGE</font></font></span></em></font></font></font></div><div><font style="font-family:"bookman old style", "new york", times, serif"><font style="font-size:16px"><font style="font-family:Helvetica, Arial, sans-serif"><em><span style="color:rgb(0, 0, 191)"><font style="font-size:medium"><font style="font-family:"Courier New", courier, monaco, monospace, sans-serif">Mestre em Metrologia - PUC-Rio/PósMQI</font></font></span></em></font></font></font></div><div><font style="font-family:"bookman old style", "new york", times, serif"><font style="font-size:16px"><font style="font-family:Helvetica, Arial, sans-serif"><em><span style="color:rgb(0, 0, 191)"><font style="font-size:medium"><font style="font-family:"Courier New", courier, monaco, monospace, sans-serif">http://lattes.cnpq.br/8996149312896520</font></font></span></em></font></font></font></div></div></div></div><div>_______________________________________________</div><div>R-br mailing list</div><div>R-br@listas.c3sl.ufpr.br</div><div>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</div><div>Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.</div></blockquote></blockquote>