R - hacer un bucle para generar archivos nuevos con subset

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.

listaoficina = unique(oficinas_cartera$OFICINA)

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