R - 使用来自 R 对象的输入创建有效 json

Question

我想创建一个有效的 JSON 字符串，输入来自 R 列表。每个键和值都需要引号转义（请参阅预期有效 JSON）。我使用 jsonlite 包转换为 JSON。

结果字符串用于需要引号转义的 API。

R 列表：

myProducts <- list(
                  productOne = "x",
                  productTwo = "y"
)

将列表转换为 json 格式：

myJSON <- toJSON(myProducts)

输出：

{"productOne":["x"],"productTwo":["y"]}

预期有效 json / 需要字符串：

"{\"productOne\": \"x\", \"productTwo\": \"y\"}"

Answer 1

以下是获取预期字符串的方法：

> as.character(toJSON(myProducts, auto_unbox = TRUE))
[1] "{\"productOne\":\"x\",\"productTwo\":\"y\"}"

R - Create valid json with input from R objects