将 JSON 对象保存到 file.JSON
声明：本页面是StackOverFlow热门问题的中英对照翻译，遵循CC BY-SA 4.0协议，如果您需要使用它，必须同样遵循CC BY-SA许可，注明原文地址和作者信息，同时你必须将它归于原作者（不是我）：StackOverFlow
原文地址: http://stackoverflow.com/questions/24662303/
Warning: these are provided under cc-by-sa 4.0 license. You are free to use/share it, But you must attribute it to the original authors (not me):
StackOverFlow
Saving a JSON object to file.JSON
提问by Nathan Calverley
I've create a JSON file, and I need to be able to share the file via email with other collaborators. However, although there are plenty of topics available on handling JSON objects in the R workspace, there are virtually no resources discussing how to actually export a JSON object to a .JSON file.
我已经创建了一个 JSON 文件，我需要能够通过电子邮件与其他协作者共享该文件。然而，尽管在 R 工作区中处理 JSON 对象有很多可用的主题，但实际上没有资源讨论如何将 JSON 对象实际导出到 .JSON 文件。
Here's a simple example:
这是一个简单的例子：
list1 <- vector(mode="list", length=2)
list1[[1]] <- c("a", "b", "c")
list1[[2]] <- c(1, 2, 3)
exportJson <- toJSON(list1)
## Save the JSON to file
save(exportJson, file="export.JSON")
## Attempt to read in the JSON
library("rjson")
json_data <- fromJSON(file="export.JSON")
The final line, attempting to read in the JSON file, results in an error: "Error in fromJSON(file = "export.JSON") : unexpected character 'R'"
最后一行，尝试读取 JSON 文件，结果出现错误：“Error in fromJSON(file = "export.JSON") : unexpected character 'R'”
Obviously the save() function is not the way to go, but after extensive googling, I have found nothing that says how to export the JSON to a file. Any help would be greatly appreciated.
显然 save() 函数不是要走的路，但经过大量的谷歌搜索后，我没有发现任何说明如何将 JSON 导出到文件的内容。任何帮助将不胜感激。
回答by jdharrison
You can use write:
您可以使用write：
library(RJSONIO)
list1 <- vector(mode="list", length=2)
list1[[1]] <- c("a", "b", "c")
list1[[2]] <- c(1, 2, 3)
exportJson <- toJSON(list1)
> exportJson
[1] "[\n [ \"a\", \"b\", \"c\" ],\n[ 1, 2, 3 ] \n]"
write(exportJson, "test.json")
library("rjson")
json_data <- fromJSON(file="test.json")
> json_data
[[1]]
[1] "a" "b" "c"
[[2]]
[1] 1 2 3
回答by James Hirschorn
There is also the jsonlitepackage:
还有一个jsonlite包：
library(jsonlite)
exportJSON <- toJSON(list1)
write(exportJSON, "test.json")
list2 <- fromJSON("test.json")
identical(list1, list2)
