R code to read all the csv files into a single dataset (only works when all csv files have the same format)

read_all_csv_files.r

read_all_csv_files <- function(dir) {
  save_dir <- getwd()
  setwd(dir)
  files <- list.files(pattern = "csv")
  for (file in files) {
    if (!exists("dataset")){ 
      dataset <- read.csv(file) 
    } else {
      temp_dataset <- read.csv(file, stringsAsFactors = FALSE)
      dataset <- rbind(dataset, temp_dataset)
      rm(temp_dataset)
    }
  }
  setwd(save_dir)
  return(dataset)
}