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

Question

我正在寻找使用R列表中的输入来创建有效的JSON字符串的方法。 每个键和值都需要转义引号（请参见预期的有效JSON）。我使用jsonlite包将其转换为JSON。

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

R列表：

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

将列表转换为json格式：

myJSON <- toJSON(myProducts)

输出：

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

预期有效的json / Neeed字符串：

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

Answer 1

以下是获取所需字符串的方法：

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