<div dir="ltr">Boa noite!<div><br></div><div>Estou deparando-me com um pequeno problema:</div><div><br></div><div>Tenho um data.frame que desejo cortar de acordo com o valor de uma coluna.</div><div>Esta coluna está em formato de data com hora: YYYY-MM-DD HH:MM:SS</div><div><br></div><div>Minha intenção é de criar um diretório com a data e um arquivo dentro de cada diretório.</div><div>Ex: <dir>/data/2015-02-02/saida.csv , <dir>/data/2015-02-03/saida.csv , <dir>/data/2015-02-04/saida.csv etc</div><div><br></div><div>Entretanto, o que está sendo impresso, e, criado como diretório,</div><div>é a representação interna do objeto Date</div><div><br></div><div>Ex: <dir>/data/16467/saida.csv , <dir>/data/16468/saida.csv , <dir>/data/16469/saida.csv etc<br clear="all"><div><div class="gmail_signature"><div dir="ltr"><div><br></div><div>Já tentei usar as.character(), format(), mas estou ficando sem ideias de como "corrigir".</div><div><br></div><div>Alguém já passou por isso ou teria alguma sugestão por favor?</div><div><br></div><div>Segue trecho de código pertinente com um pedaço dos dados:</div><div><br></div><div>library(R.utils)<br></div><div><br></div><div><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>for (dia in unique(as.Date(df[,5]))){</div><div>    dfi <- df[as.Date(df[,5]) == dia,]</div><div>    diretorio <- paste(getwd(), "rsc/data", format(dia, 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><div><br></div><div>Dados do ambiente:</div><div><br></div><div><div>R version 3.2.0 (2015-04-16) -- "Full of Ingredients"</div><div>Platform: i386-w64-mingw32/i386 (32-bit)</div></div><div><br></div><div>Atenciosamente,</div><div><br></div>David Feitosa<br><div><div></div></div><div><br></div><div><div>(\_(\</div><div>(=°;°)</div><div>(("")("")</div></div></div></div></div></div>
</div></div>