在 R 中为 httr::POST 创建嵌套的 Json Obj

Question

我是 R 新手，正在尝试到达终点。我已经拿到令牌了。现在使用该令牌我想点击端点并获取数据。

问题在于创建嵌套字典

我能够创造：

 {
    "a":["A"],
    "b":["B"]
 }

我想要什么：

{
 "c": {
       "a":["A"],
       "b":["B"]
 }
}

目标/最终代码...

url <- "http:xxxx/xxxx/xxxx/xx?"
req <- httr::POST(url, body=body, httr::add_headers(Authorization = token))

---

在我尝试过的几件事中......

a<-c("A")
b<-c("B")
body<- jsonlite::toJSON(data.frame(a=a, b=b) ) 
body

输出：[{"a":"A","b":"B"}]

body2<- jsonlite::toJSON(data.frame(c=body ) ) 

给出错误： 无法将“json”类强制转换为 data.frame

所以可能应该做这样的事情......

body2<- jsonlite::toJSON(data.frame(c=fromJSON(body) ) ) 
body2

但输出是...[{"c.a":"A","c.b":"B"}]

---

然后我尝试了...

json <- toJSON('{"a": ["A"],"b": ["B"]}') 
json
body<- jsonlite::toJSON(data.frame(c=fromJSON(json) ) )
body

输出：["{\"a\": [\"A\"],\"b\": [\"B\"]}"]

---

...现在我完全迷失了。

试图理解： POST encripted request with JSON body on R Nested JSON to dataframe in R Convert Nested JSON Object into data Frame in R Import data from file contaning nested JSON objects in R

Answer 1

这表明您要达到的目标。没有更多代码，我不知道这是否能解决您的问题。

body <- list()
innerBody <- list()
innerBody$a <- "A"
innerBody$b <- "B"
body$c <- innerBody
jsonlite::toJSON(body, pretty = TRUE)

{ "c": { “一”：[“一”]， "b": ["B"] } }