web-dev-qa-db-ja.com

JSONオブジェクトをfile.JSONに保存する

JSONファイルを作成しました。このファイルを電子メールで他の共同編集者と共有できるようにする必要があります。ただし、RワークスペースでのJSONオブジェクトの処理に関するトピックは多数ありますが、JSONオブジェクトを.JSONファイルに実際にエクスポートする方法を説明するリソースはほとんどありません。

以下に簡単な例を示します。

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")

JSONファイルを読み取ろうとする最後の行は、「fromJSON(file = "export.JSON")のエラー:予期しない文字 'R'」というエラーになります。

明らかに、save()関数は進むべき方法ではありませんが、徹底的なグーグル検索の後、JSONをファイルにエクスポートする方法を説明するものは何も見つかりませんでした。どんな助けも大歓迎です。

31

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
43
jdharrison

jsonliteパッケージもあります。

library(jsonlite)

exportJSON <- toJSON(list1)
write(exportJSON, "test.json")
list2 <- fromJSON("test.json")

identical(list1, list2)
4
James Hirschorn