Stitching together multiple CSV files in R

stitchCSVs.R

TidyMultipleChoiceData <- function(file) {
  multiple.choice.columns <- c("name",
                             "mc1",
                             "mc2",
                             "mc3",
                             "mc4",
                             "mc5",
                             "mc6",
                             "mc7",
                             "mc8"
                           )
  dd <- read.csv(file, header = TRUE) # Load the files
  dd <- subset(dd, select = multiple.choice.columns) #Select multiple choice columns
  dd <- transform(dd, instructor = ExtractInstructorFromFilename(file)) # append a column to indicate source instructor
  
  return(dd)
}
  
ExtractInstructorFromFilename <- function(filename) {
  return(gsub(".*/([a-z,A-Z]+).csv$", filename, replacement = "\\1", perl = T))
}