2

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) ) )

アドバイスをありがとう！

4

1 に答える 1

3

ここでは、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" ] 
  } 
 ] 
}
于 2013-02-28T14:47:00.283 に答える