在R中使用gdata导入多个excel - 添加filenamevar

Question

我试图合并多个excel 2013文件并将其写入新的csv文件。 无论出于何种原因，我无法在RStudio上加载xlsx包，所以我使用gdata包代替; 我下面的脚本工作，但我想添加文件名变量作为新列。我不知道如何实现这一目标。有人可以建议我吗？

setwd（MY_DIRECTORY）     x＆lt; - file_path_sans_ext（filelist）     filelist＆lt; - list.files（pattern =＆＃34; * \ .xlsx $＆＃34;）

files <- lapply(filelist, read.xls, header=TRUE, stringsAsFactors=FALSE)
files <- lapply(files, function(x) x[])
df <- Reduce(function(...) merge(..., all=T), files)

write.csv(new, "mynewfile.csv")  

谢谢 佩迪