R function that loads all CSVs in a given directory

load_all_csv.R

# Loads all CSV files into a data set in given INPUT_PATH
loadAllCSVs <- function (INPUT_PATH) {
  # Get list of files
  file_list <- list.files(INPUT_PATH)
  
  # Iterate through files and add them to "dataset"
  for (file in file_list){
    file <- paste(INPUT_PATH,file,sep="")
    # if the merged dataset doesn't exist, create it
    if (!exists("dataset")){
      dataset <- read.table(file, header=TRUE, sep=",")
    }
    
    # if the merged dataset does exist, append to it
    if (exists("dataset")){
      temp_dataset <-read.table(file, header=TRUE, sep=",")
      dataset<-rbind(dataset, temp_dataset)
      rm(temp_dataset)
    }
    
  }
  return(dataset)
}