从目录导入多个json文件并附加数据

Question

我正在尝试将多个json文件读取到工作目录中，以进一步转换为数据集。我在目录json中有文件text1，text2，text3。这是我写的代码：

setwd("Users/Desktop/json")
temp = list.files(pattern="text*.")
myfiles = lapply(temp, read.delim)
library("rjson")
json_file <- "myfiles"
library(jsonlite)
out <- jsonlite::fromJSON(json_file)
out[vapply(out, is.null, logical(1))] <- "none"
data.frame(out, stringsAsFactors = FALSE)[,1:5]
View(out)

我大约有200个文件，所以我想知道是否可以导入json文件。

谢谢

Answer 1

我认为使用Twitter数据时遇到类似的问题。我有一个目录，其中包含每个用户名的单独文件，我想将它们作为一个组导入/分析。这为我工作：

library(rjson)
filenames <- list.files("Users/Desktop/json", pattern="*.json", full.names=TRUE) # this should give you a character vector, with each file name represented by an entry
myJSON <- lapply(filenames, function(x) fromJSON(file=x)) # a list in which each element is one of your original JSON files

如果这不起作用，那么我需要更多信息来了解您的问题。