r - 将数据帧解析为 JSON(通过 RJSONIO)

Question

我有 RJSONIO 问题。
我有一个像 df 这样的数据框

df <- data.frame(a = c(1:3), b = c(4:6), c = c(7:9) )
df
  a b c
1 1 4 7
2 2 5 8
3 3 6 9

现在我需要的是使用此数据框并生成以下 JSON 结构中的行。所以最后它看起来像这样:

{
"job_id": "1",
"page": "1",
"rows": [
    {
        "row": [
            "1",
            "4",
            "7"
        ]
    },
    {
        "row": [
            "2",
            "5",
            "8"
        ]
    },
    {
        "row": [
            "3",
            "6",
            "9"
        ]
    }
]

}

我从这段代码开始，但数组内的引号(大括号周围)存在问题:

rows <- apply(df, 1, function(x) toJSON(list(row = x)) )
toJSON(list("job_id" = "1",  "page" = "1", "rows" = paste(rows) ) )

感谢您的任何建议!

Answer 1

此处介绍如何创建 JSON 格式。

list(job_id = "1", 
   page = "1", 
   rows = lapply(seq(nrow(df)), function(x) list(row=as.character(df[x,]))))


cat(toJSON(ll))
{"job_id": "1",
 "page": "1",
 "rows": [
  {
   "row": [ "1", "4", "7" ] 
  },
  {
   "row": [ "2", "5", "8" ] 
  },
  {
   "row": [ "3", "6", "9" ] 
  } 
 ] 
}