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をファイルにエクスポートする方法を説明するものは何も見つかりませんでした。どんな助けも大歓迎です。
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
jsonlite
パッケージもあります。
library(jsonlite)
exportJSON <- toJSON(list1)
write(exportJSON, "test.json")
list2 <- fromJSON("test.json")
identical(list1, list2)