Convert SPSS files to CSV using R

SPSS_to_CSV.R

library(foreign)

# Converting one SPSS file
data <- read.spss("File_path_SPSS.sav",
                  reencode='utf-8',
                  use.value.labels = FALSE,
                  to.data.frame = TRUE)
head(data)
View(data)
write.csv2(data,"C:/Users/LYCJPG1/Documents/survey_results.csv")



# Converting many SPSS file in a folder
spss2csv <- function(filename) {
  
  data <- read.spss(filename,
                    reencode='utf-8',
                    use.value.labels = FALSE,
                    to.data.frame = TRUE)
  outputcsv <- paste0(filename,".csv")
  write.csv2(data,outputcsv)
  
}

files <- list.files("Path where the SPSS files are present",
                    pattern="*.sav", full.names = TRUE)

lapply(files, spss2csv)