Read in multiple spss files and read out multiple csv files

spss_to_csv.R

# Modified from https://martinctc.github.io/blog/vignette-write-and-read-multiple-excel-files-with-purrr/
# Note: this will return numeric codes rather than value labels. Use `as_factor()` to get the latter

library(tidyverse)
    
    
# function for writing the csv files    
output_csv <- function(data, names){ 
    # output directory
    folder_path <- "data/"
    
    # too lazy to use regular expressions to extract name of the file
    write_csv(data, paste0(folder_path, str_sub(names, start=15, end=-5), ".csv"))
}


# Get list of files in directory containing spss files
data_dir <- fs::dir_ls("SPSS_data_Sets")


# read in spss files
list_of_dfs <- data_dir %>% 
    map(read_sav)

# create a list of dataframes and their names
list(data = list_of_dfs,
     names = names(list_of_dfs)) %>% 
# Isn't purr great?
purrr::pmap(output_csv)