<html><head></head><body><div class="ydp7fe9a237yahoo-style-wrap" style="font-family:bookman old style, new york, times, serif;font-size:16px;"><div><div>Obrigado a todos pelas dicas!!!<br></div><div dir="ltr" data-setdir="false"><br></div><div class="ydp7fe9a237signature"><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="ydpcf278505yui_3_16_0_1_1497025264182_38508"><span id="ydpcf278505yui_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></div><div style="margin-bottom:0.0001pt;padding:0px;line-height:normal;background:white;"><i id="ydpcf278505yui_3_16_0_1_1497025264182_38430"><span id="ydpcf278505yui_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="ydpcf278505yui_3_16_0_1_1497025264182_38309"><span id="ydpcf278505yui_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="ydpcf278505yui_3_16_0_1_1497025264182_38323"><span id="ydpcf278505yui_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="ydpcf278505yui_3_16_0_1_1497025264182_38695" style="background-color: inherit;">http://lattes.cnpq.br/8996149312896520</font></span></i></div></div></div></div>
<div><br></div><div><br></div>
</div><div id="ydp5f0ae0a9yahoo_quoted_8428606449" class="ydp5f0ae0a9yahoo_quoted">
<div style="font-family:'Helvetica Neue', Helvetica, Arial, sans-serif;font-size:13px;color:#26282a;">
<div>
Em sexta-feira, 18 de março de 2022 18:23:31 BRT, Cesar Rabak <cesar.rabak@gmail.com> escreveu:
</div>
<div><br></div>
<div><br></div>
<div><div id="ydp5f0ae0a9yiv4189523828"><div><div dir="ltr">Diogo,<div><br clear="none"></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 clear="none"></div></div><br clear="none"><div class="ydp5f0ae0a9yiv4189523828gmail_quote"><div id="ydp5f0ae0a9yiv4189523828yqt77691" class="ydp5f0ae0a9yiv4189523828yqt1560874300"><div dir="ltr" class="ydp5f0ae0a9yiv4189523828gmail_attr">On Fri, Mar 18, 2022 at 2:45 PM Diogo Jerônimo por (R-br) <<a shape="rect" href="mailto:r-br@listas.c3sl.ufpr.br" rel="nofollow" target="_blank">r-br@listas.c3sl.ufpr.br</a>> wrote:<br clear="none"></div><blockquote style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex;" class="ydp5f0ae0a9yiv4189523828gmail_quote"><div><div style="font-family:old times, serif;font-size:16px;"><div dir="ltr"><div><div style="font-size:16px;color:rgb(0,0,0);font-family:old 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:old times, serif;"><font size="1">baixa_bancos<-function(k1,k2){<br clear="none">dados<-read.csv2(paste('http://.../arquivo_m", k1 ,"_s", k2 ,".csv'",sep=""),<br clear="none">header=T, sep="|", dec =".", encoding = "UTF-8")<br clear="none">} </font><br clear="none"></font><span style="color:rgb(0,0,0);font-family:old times, serif;"><font size="3" style="background-color:inherit;"><br clear="none"></font></span></div><div><span style="color:rgb(0,0,0);font-family:old times, serif;"><font size="3" style="background-color:inherit;">A chamada da macro fica algo assim:</font></span><br clear="none" style="color:rgb(0,0,0);font-family:old times, serif;"><font color="#808080" style="font-size:x-small;font-family:old times, serif;">a<-seq(1:12);b<-seq(1:5)<br clear="none">for(i in 1:length(a))<br clear="none">for(j in 1:length(b))<br clear="none">{<br clear="none">k1<-a[[i]]<br clear="none">k2<-b[[j]]<br clear="none">baixa_bancos(k1,k2)<br clear="none">}</font><br clear="none" style="color:rgb(0,0,0);font-family:old times, serif;font-size:16px;"><div style="font-size:16px;color:rgb(0,0,0);font-family:old times, serif;"><br clear="none"></div><div style="font-size:16px;color:rgb(0,0,0);font-family:old 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:old 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 clear="none"></div><div dir="ltr" style="font-size:16px;color:rgb(0,0,0);font-family:old times, serif;"><br clear="none"></div><div dir="ltr" style="font-size:16px;color:rgb(0,0,0);font-family:old 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:old times, serif;"><br clear="none"></div><div dir="ltr" style="font-size:16px;color:rgb(0,0,0);font-family:old times, serif;">Obrigado e bom fim-de-semana!!!</div><div dir="ltr" style="font-size:16px;color:rgb(0,0,0);font-family:old times, serif;"><br clear="none"></div><i id="ydp5f0ae0a9yiv4189523828gmail-m_3964444627566448108ydpcf278505yui_3_16_0_1_1497025264182_38508" style="font-size:16px;font-family:Helvetica, Arial, sans-serif;"><span id="ydp5f0ae0a9yiv4189523828gmail-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 clear="none"></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="ydp5f0ae0a9yiv4189523828gmail-m_3964444627566448108ydpcf278505yui_3_16_0_1_1497025264182_38430"><span id="ydp5f0ae0a9yiv4189523828gmail-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="ydp5f0ae0a9yiv4189523828gmail-m_3964444627566448108ydpcf278505yui_3_16_0_1_1497025264182_38309"><span id="ydp5f0ae0a9yiv4189523828gmail-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="ydp5f0ae0a9yiv4189523828gmail-m_3964444627566448108ydpcf278505yui_3_16_0_1_1497025264182_38323"><span id="ydp5f0ae0a9yiv4189523828gmail-m_3964444627566448108ydpcf278505yui_3_16_0_1_1497025264182_38322" style="line-height:17.12px;color:rgb(0,0,191);font-size:medium;"><font id="ydp5f0ae0a9yiv4189523828gmail-m_3964444627566448108ydpcf278505yui_3_16_0_1_1497025264182_38695" face="Courier New, courier, monaco, monospace, sans-serif" style="background-color:inherit;"><a shape="rect" href="http://lattes.cnpq.br/8996149312896520" rel="nofollow" target="_blank">http://lattes.cnpq.br/8996149312896520</a></font></span></i></div></div></div></div></div>_______________________________________________<br clear="none">
R-br mailing list<br clear="none">
<a shape="rect" href="mailto:R-br@listas.c3sl.ufpr.br" rel="nofollow" target="_blank">R-br@listas.c3sl.ufpr.br</a><br clear="none">
<a shape="rect" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br clear="none">
Leia o guia de postagem (<a shape="rect" href="http://www.leg.ufpr.br/r-br-guia" rel="nofollow" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br clear="none">
</blockquote></div></div>
</div></div></div>
</div>
</div></body></html>