R: jsonlite封装

Question

我使用本手册生成基于R数据的JSON文档。但我搞错了。

因此，这些结构的原生R实现是JSON对象的命名列表，而JSON数组的未命名列表。

我想让医生喜欢：

{ "DATA": [
   {"VAR1":"VAL1"},
   {"VAR2":"VAL2"}
 ]
}

为此，我使用：

library(jsonlite)
x = data.frame (VAR1 = 'VAL1')
y = data.frame (VAR2 = 'VAL2')
json = list(DATA = c(x, y))
toJSON(json, pretty = TRUE)

但是值存储在数组中，而DATA不是数组。找不到，怎么做才对？

{
  "DATA": {
    "VAR1": ["VAL1"],
    "VAR2": ["VAL2"]
  }
} 

UPD:使用命名列表代替data.frame帮助来解决一个问题，但是值仍然存储在数组中

x = list (VAR1 = 'VAL1')
y = list (VAR2 = 'VAL2')
json = list(DATA = list(x, y))
toJSON(json, pretty = TRUE)

{
  "DATA": [
    {
      "VAR1": ["VAL1"]
    },
    {
      "VAR2": ["VAL2"]
    }
  ]
} 

Answer 1

使用jsonlite，您只需为您的data数组创建一个数据框架：

df <- data.frame("VAR1" = "VAL1", "VAR2" = "VAL2")
jsonlite::toJSON(list(data = df), pretty = TRUE)

给予：

{
  "data": [
    {
      "VAR1": "VAL1",
      "VAR2": "VAL2"
    }
  ]
}

如果您真的想拥有单独的JSON对象，那么需要这样的东西：

mydata <- list(
  list(VAR1 = "VAL1"),
  list(VAR2 = "VAL2")
)

jsonlite::toJSON(list(data = mydata), auto_unbox = TRUE)

请注意，使用包含不同字段的json对象的数组是不好的做法，请参见本文引用的第3章。

Answer 2

找到答案了，这是jsonlite的行为。使用rjson代替-工作很好。来自jsonlite：

有两种边缘情况值得特别注意:长度为0的向量和长度为1.JSON的向量--它们分别编码为空数组和长度为1的数组。似乎很明显，但这些情况导致不同JSON包之间的行为非常不同。这可能是因为R没有标量类型，一些包作者决定将长度为1的向量视为标量。例如，在当前实现中，RJSONIO和rjson都将长度为1的向量编码为JSON原语，当它出现在列表中时：

# Other packages make different choices:
cat(rjson::toJSON(list(n = c(1))))
{"n":1}
cat(rjson::toJSON(list(n = c(1, 2))))
{"n":[1,2]}

解决办法：

library(rjson)
x = list(VAR1 = "VAL1")
y = list(VAR2 = "VAL2")
json = list(DATA = list(x, y))
toJSON(json, method = "C")

结果：

[1] "{\"DATA\":[{\"VAR1\":\"VAL1\"},{\"VAR2\":\"VAL2\"}]}"