Merges multiple files into a single dataframe

multi_merge.R

multimerge <- function(mypath){
  filenames <- list.files(path=mypath, full.names=TRUE)
  datalist <- lapply(filenames, function(x) read.csv(file=x,header=T))
  result_df <- Reduce(function(x,y) merge(x,y), datalist)
  return(result_df)
}

### Cleaner and faster
# import files
files <- list.files(pattern="*.csv")
dataset <- do.call(rbind, lapply(files, data.table::fread))

# transform data to df
dataset <- as.data.frame(unclass(dataset))