如何有效加载xlsx文件

Question

我尝试使用以下方法导入近30个xlsx文件，每个文件的大小均超过60mb +

setwd("filepath")
filelist = list.files(pattern = ".*.xlsx")
datalist = lapply(filelist, function(x) {read_excel(x, sheet = 1)})
for (i in 1:length(datalist)){datalist[[i]]<-cbind(datalist[[i]],filelist[i])} 
Data = do.call("rbind", datalist)

我花了很长时间才能加载这些文件，是否有任何有效的方式在几分钟之内加载这些文件？仅供参考，我的系统RAM为8GB，任何帮助将不胜感激。