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

(\_(\
(=°;°)
(("")("")