library(jsonlite)#加載需要的包（安裝包需要先安裝好）

filelist <- list.files(pattern=".*.json")#列出當前文件夾下所有的json數(shù)據(jù)文件名（每個文件名以.json結(jié)尾）
length(filelist)#文件個數(shù)
time1<-Sys.time()#當前系統(tǒng)時間
datalist <- lapply(filelist, function(x) fromJSON(x)) #利用fromJSON函數(shù)按照文件名列表讀取文件
time2<-Sys.time()-time1;time2#計算讀取文件花費的時間