<div dir="ltr">Diogo,<div><br></div><div>Várias soluções parecem-me bater à sua porta, mas a mais simples, seguindo o estilo do seu código, parece-me ser de fazer a função, por você criada, <font face="monospace">baixa_bancos</font>, receber um parâmetro que também seja variáveil em função dos elemento k1 e k2, ou fazer a função retornar os arquivos com os nomes criados dentro dela.</div><div><br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Fri, Mar 18, 2022 at 2:45 PM Diogo Jerônimo por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div><div style="font-family:"bookman old style","new york",times,serif;font-size:16px"><div dir="ltr"><div><div style="font-size:16px;color:rgb(0,0,0);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: </div><font color="#808080" style="font-size:16px;font-family:"bookman old style","new york",times,serif"><font size="1">baixa_bancos<-function(k1,k2){<br>dados<-read.csv2(paste('http://.../arquivo_m", k1 ,"_s", k2 ,".csv'",sep=""),<br>header=T, sep="|", dec =".", encoding = "UTF-8")<br>} </font><br></font><span style="color:rgb(0,0,0);font-family:"bookman old style","new york",times,serif"><font size="3" style="background-color:inherit"><br></font></span></div><div><span style="color:rgb(0,0,0);font-family:"bookman old style","new york",times,serif"><font size="3" style="background-color:inherit">A chamada da macro fica algo assim:</font></span><br style="color:rgb(0,0,0);font-family:"bookman old style","new york",times,serif"><font color="#808080" style="font-size:x-small;font-family:"bookman old style","new york",times,serif">a<-seq(1:12);b<-seq(1:5)<br>for(i in 1:length(a))<br>for(j in 1:length(b))<br>{<br>k1<-a[[i]]<br>k2<-b[[j]]<br>baixa_bancos(k1,k2)<br>}</font><br style="color:rgb(0,0,0);font-family:"bookman old style","new york",times,serif;font-size:16px"><div style="font-size:16px;color:rgb(0,0,0);font-family:"bookman old style","new york",times,serif"><br></div><div style="font-size:16px;color:rgb(0,0,0);font-family:"bookman old style","new york",times,serif">A dúvida: se eu executar assim a macro, <font color="#cd232c"><b>dados</b></font> 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):</div><div dir="ltr" style="font-size:16px;font-family:"bookman old style","new york",times,serif"><span style="font-size:x-small"><font color="#808080" style="background-color:inherit"><b>paste("arquivo_m",k1,"_s",k2)<-dados</b></font></span><br></div><div dir="ltr" style="font-size:16px;color:rgb(0,0,0);font-family:"bookman old style","new york",times,serif"><br></div><div dir="ltr" style="font-size:16px;color:rgb(0,0,0);font-family:"bookman old style","new york",times,serif">E em seguida <b>reunir todos eles via rbind</b> ou outro comando. Consegui explicar certo? Se sim, alguém saberia como resolver?</div><div dir="ltr" style="font-size:16px;color:rgb(0,0,0);font-family:"bookman old style","new york",times,serif"><br></div><div dir="ltr" style="font-size:16px;color:rgb(0,0,0);font-family:"bookman old style","new york",times,serif">Obrigado e bom fim-de-semana!!!</div><div dir="ltr" style="font-size:16px;color:rgb(0,0,0);font-family:"bookman old style","new york",times,serif"><br></div><i id="gmail-m_3964444627566448108ydpcf278505yui_3_16_0_1_1497025264182_38508" style="font-size:16px;font-family:Helvetica,Arial,sans-serif"><span id="gmail-m_3964444627566448108ydpcf278505yui_3_16_0_1_1497025264182_38507" style="color:rgb(0,0,191);font-size:medium"><font face="Courier New, courier, monaco, monospace, sans-serif" style="background-color:inherit">Diogo Jerônimo</font></span></i><br></div></div><div style="font-size:16px"><div style="font-family:Helvetica,Arial,sans-serif;font-size:16px"><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white"><i id="gmail-m_3964444627566448108ydpcf278505yui_3_16_0_1_1497025264182_38430"><span id="gmail-m_3964444627566448108ydpcf278505yui_3_16_0_1_1497025264182_38429" style="color:rgb(0,0,191);font-size:medium"><font face="Courier New, courier, monaco, monospace, sans-serif" style="background-color:inherit">Bacharel em Ciências Estatísticas - ENCE/IBGE</font></span></i></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white"><i id="gmail-m_3964444627566448108ydpcf278505yui_3_16_0_1_1497025264182_38309"><span id="gmail-m_3964444627566448108ydpcf278505yui_3_16_0_1_1497025264182_38308" style="color:rgb(0,0,191);font-size:medium"><font face="Courier New, courier, monaco, monospace, sans-serif" style="background-color:inherit">Mestre em Metrologia - PUC-Rio/PósMQI</font></span></i></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white"><i id="gmail-m_3964444627566448108ydpcf278505yui_3_16_0_1_1497025264182_38323"><span id="gmail-m_3964444627566448108ydpcf278505yui_3_16_0_1_1497025264182_38322" style="line-height:17.12px;color:rgb(0,0,191);font-size:medium"><font face="Courier New, courier, monaco, monospace, sans-serif" id="gmail-m_3964444627566448108ydpcf278505yui_3_16_0_1_1497025264182_38695" style="background-color:inherit"><a href="http://lattes.cnpq.br/8996149312896520" target="_blank">http://lattes.cnpq.br/8996149312896520</a></font></span></i></div></div></div></div></div>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div>