#首先保证json数据文件都在当前文件夹下
#读取json数据
library(jsonlite)#加载需要的包(安装包需要先安装好)
#批量导入当前文件夹下的所有文件
length(filelist)#文件个数
time1<-Sys.time()#当前系统时间
datalist <- lapply(filelist, function(x) fromJSON(x)) #利用fromJSON函数按照文件名列表读取文件
time2<-Sys.time()-time1;time2#计算读取文件花费的时间
本文引自:http://blog.csdn.net/learneraiqi/article/details/45846839