首先保证json数据文件都在当前文件夹下
读取json数据
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#计算读取文件花费的时间
三个资料Q群下载不了也转发不了,先放这里Fine_tuning.zipLangChain.zipdata_clear.rar