json - 使用 RJSONIO 和 AsIs 类

Question

我正在编写一些辅助函数来将我的 R 变量转换为 JSON。我遇到了这个问题：我希望将我的值表示为 JSON 数组，这可以根据 RJSONIO 文档使用 AsIs 类来完成。

x = "HELLO"
toJSON(list(x = I(x)), collapse="")

"{ \"x\": [ \"HELLO\" ] }"

但是假设我们有一个清单

y = list(a = "HELLO", b = "WORLD")
toJSON(list(y = I(y)), collapse="")

"{ \"y\": {\n \"a\": \"HELLO\",\n\"b\": \"WORLD\" \n} }"

在 y -> a 中找到的值不表示为数组。理想情况下我会

"{ \"y\": [{\n \"a\": \"HELLO\",\n\"b\": \"WORLD\" \n}] }"

注意方括号。此外，我想摆脱所有“\n”，但折叠并不能消除嵌套 JSON 中的换行符。有任何想法吗？

score 2 · Accepted Answer

试着写成

y = list(list(a = "HELLO", b = "WORLD"))
test<-toJSON(list(y = I(y)), collapse="")

当您写入文件时，它显示为：

{ "y": [
 {
 "a": "HELLO",
"b": "WORLD" 
} 
] }

我想你可以删除 \n 作为

test<-gsub("\n","",test)

或使用 RJSON 包

> rjson::toJSON(list(y = I(y)))
[1] "{\"y\":[{\"a\":\"HELLO\",\"b\":\"WORLD\"}]}"

原因

> names(list(a = "HELLO", b = "WORLD"))
[1] "a" "b"
> names(list(list(a = "HELLO", b = "WORLD")))
NULL

检查 rjson::toJSON 你会发现这段代码

  if (!is.null(names(x))) 
            return(toJSON(as.list(x)))
        str = "["

所以它似乎需要一个未命名的列表来将其视为 JSON 数组。也许 RJSONIO 是类似的。

1 回答 1