Convert all xls[x] files in the current directory to CSV

csv.R

#!/usr/bin/env Rscript

library(readxl)

pattern <- ".xls[x]?$"

# Create a vector of Excel files to read
files_to_read = list.files(pattern=pattern)

# Read each file and write it to CSV
lapply(files_to_read, function(f) {
  df <- read_excel(f)
  write.csv(df, gsub(pattern, ".csv", f), row.names=FALSE)
})