library(jsonlite)#加载需要的包（安装包需要先安装好）

filelist <- list.files(pattern=".*.json")#列出当前文件夹下所有的json数据文件名（每个文件名以.json结尾）
length(filelist)#文件个数
time1<-Sys.time()#当前系统时间
datalist <- lapply(filelist, function(x) fromJSON(x)) #利用fromJSON函数按照文件名列表读取文件
time2<-Sys.time()-time1;time2#计算读取文件花费的时间