更新时间:2023-11-23 11:27:10
如果您使用的是rjson
软件包,则需要将它们串联到一个列表中:
If you are using the rjson
package, then you need to concatenate them into a list:
library(rjson)
json1 <- fromJSON(file = "json1")
json2 <- fromJSON(file = "json2")
json3 <- fromJSON(file = "json3")
jsonl <- list(json1, json2, json3)
jsonc <- toJSON(jsonc)
jsonc
[1] "[[[1,5],[5,7],[8,10]],[[5,6],[4,5],[5,8]],[[4,7],[3,4],[4,8]]]"
write(jsonc, file = "jsonc")
如果文件很多,可以将它们放入向量中,并使用lapply
保存一些键入内容:
If you have many files, you can put them in a vector and use lapply
to save some typing:
files <- c("json1", "json2", "json3")
jsonl <- lapply(files, function(f) fromJSON(file = f))
jsonc <- toJSON(jsonl)
write(jsonc, file = "jsonc")