Generar nuevas archivos con subset

[Oscar_Martinez]

Estimados estoy tratando de automatizar la generación de nuevos archivos utilizando la función subset.

Tengo una base de datos con una columna de las Oficinas con sus ventas, necesito crear un archivo para cada oficina, he tratado con el siguiente script. No se cual es el error. Me genera solo una lista de nombre Oficinas.

listaoficina = unique(oficinas_cartera$OFICINA)

for (i in seq_along(listaoficina)){
Oficinas[[i]] <-
subset(oficinas_cartera, oficinas_cartera$OFICINA==listaoficina[i])
}

[FJCC]

Try this:

listaoficina = unique(oficinas_cartera$OFICINA)

for (i in seq_along(listaoficina)){
  tmp <-  subset(oficinas_cartera, oficinas_cartera$OFICINA==listaoficina[i])
  Nombre <- paste0(listaoficina[i],".csv")
  write.csv(tmp,file=Nombre,row.names = FALSE)
}