merge all csv/xls/etc in a directory by a common field, R

merge.csv.R

#_______________________________________________________________________________#
#|                                                                             |#
#| !! keep in mind that each data frame must have only one common field name!! |#
#|_____________________________________________________________________________|#

#create the function for csvs

merge.csv = function(mypath){
filenames=list.files(path=mypath, full.names=TRUE)
datalist = lapply(filenames, function(x){read.csv(file=x,header=T, stringsAsFactors=F)})
Reduce(function(x,y) {merge(x,y)}, datalist)
}

# How to use:
data = merge.csv("list/to/dir")

#for xls
merge.xls = function(mypath){
require("gdata")
filenames=list.files(path=mypath, full.names=TRUE)
datalist = lapply(filenames, function(x){read.xls(file=x,header=T)})
Reduce(function(x,y) {merge(x,y)}, datalist)
}

# How to use:
data = merge.xls("list/to/dir")