R Script for splitting data frame and then saving separate .csv

split-df-save.R

#----------------------------------------------------------------------------------------
# File: 
# Author: Joseph Flanagan, adopted from https://stackoverflow.com/questions/10002021/split-dataframe-into-multiple-output-files-in-r
# email:   [email protected]
# Purpose: Split a dataframe by group, then save each as separate .csv file
#----------------------------------------------------------------------------------------

# new tidyverse solution with `group_walk`
library(dplyr)
library(readr)

iris %>% 
  group_by(Species) %>% 
  group_walk(~ write_csv(.x, paste0(.y$Species, ".csv")))



# Old version
library(tidyverse)

# Make a copy of iris
iris2 <- iris  

# Split by variable
spt2 <- split(iris2, iris2$Species)

# Save
lapply(names(spt2), function(x){
    write_csv(spt2[[x]], paste(x, ".csv", sep = ""))
    })

thank you!!!