[R-br] Impressão do objeto Date

David Feitosa davidfeitosa em gmail.com
Quarta Maio 27 22:22:50 BRT 2015


Boa noite!

Estou deparando-me com um pequeno problema:

Tenho um data.frame que desejo cortar de acordo com o valor de uma coluna.
Esta coluna está em formato de data com hora: YYYY-MM-DD HH:MM:SS

Minha intenção é de criar um diretório com a data e um arquivo dentro de
cada diretório.
Ex: <dir>/data/2015-02-02/saida.csv , <dir>/data/2015-02-03/saida.csv ,
<dir>/data/2015-02-04/saida.csv etc

Entretanto, o que está sendo impresso, e, criado como diretório,
é a representação interna do objeto Date

Ex: <dir>/data/16467/saida.csv , <dir>/data/16468/saida.csv ,
<dir>/data/16469/saida.csv etc

Já tentei usar as.character(), format(), mas estou ficando sem ideias de
como "corrigir".

Alguém já passou por isso ou teria alguma sugestão por favor?

Segue trecho de código pertinente com um pedaço dos dados:

library(R.utils)

lines <- "
5928671,14,-3.831290,-38.50146,2015-02-01 00:00:01
5926098,44,-3.709390,-38.58986,2015-02-02 00:01:13
5915217,145,-3.743671,-38.48788,2015-02-03 00:01:16
5444641,174,-3.766271,-38.57452,2015-02-01 00:01:38
2250561,977,-3.738654,-38.48400,2015-02-02 00:01:47
5671754,14,-3.831290,-38.50146,2015-02-03 00:02:43
"
con <- textConnection(lines)
df <- read.csv(con, header = F)
close(con)

for (dia in unique(as.Date(df[,5]))){
    dfi <- df[as.Date(df[,5]) == dia,]
    diretorio <- paste(getwd(), "rsc/data", format(dia, format =
"%Y-%m-%d"),
                       sep = "/", collapse = "")
    mkdirs(diretorio)
    write.csv(dfi, paste(diretorio, "saida.csv", sep = "/", collapse = ""))
}

Dados do ambiente:

R version 3.2.0 (2015-04-16) -- "Full of Ingredients"
Platform: i386-w64-mingw32/i386 (32-bit)

Atenciosamente,

David Feitosa

(\_(\
(=°;°)
(("")("")
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150527/25925bcd/attachment.html>


Mais detalhes sobre a lista de discussão R-br