<p dir="ltr">Diego, obrigado. Funcionou. :-)</p>
<p dir="ltr">Mas não entendi a diferença no comportamento.<br>
Você poderia explicar por favor?</p>
<div class="gmail_quote">Em 28/05/2015 00:11, "Diego Miro" <<a href="mailto:d.miro1089@gmail.com">d.miro1089@gmail.com</a>> escreveu:<br type="attribution"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">David, veja se te ajuda.<div><br></div><div><div style="font-size:12.8000001907349px">library(R.utils)<br></div><div style="font-size:12.8000001907349px"><br></div><div style="font-size:12.8000001907349px"><div>lines <- "</div><div>5928671,14,-3.831290,-38.50146,2015-02-01 00:00:01</div><div>5926098,44,-3.709390,-38.58986,2015-02-02 00:01:13</div><div>5915217,145,-3.743671,-38.48788,2015-02-03 00:01:16</div><div>5444641,174,-3.766271,-38.57452,2015-02-01 00:01:38</div><div>2250561,977,-3.738654,-38.48400,2015-02-02 00:01:47</div><div>5671754,14,-3.831290,-38.50146,2015-02-03 00:02:43</div><div>"</div><div>con <- textConnection(lines)</div><div>df <- read.csv(con, header = F)</div><div>close(con)</div><div><br></div></div></div><div><div><b>dias <- unique(as.Date(df[, 5]))</b></div><div><b>for (i in 1:length(dias)) {</b></div><div>    dfi <- df[as.Date(df[, 5]) == <b>dias[i]</b>, ]</div><div>    diretorio <- paste(getwd(), "rsc/data", format(<b>dias[i]</b>, format = "%Y-%m-%d"),</div><div>                       sep = "/", collapse = "")</div><div>    mkdirs(diretorio)</div><div>    write.csv(dfi, paste(diretorio, "saida.csv", sep = "/", collapse = ""))</div><div>}</div></div><div><br></div><div class="gmail_extra"><br></div></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" 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" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div>