使用 toJson function 时处理列表和 arrays - 在 R

Question

I am working with a pre-specified API definition, which I need to adhere to:

"myTable": {
    "split": [
        {
            "total": 0,
            "perItem": [
                0,
                0,
                0
            ]
        }
    ]

the results from my function are a list (since I am using an apply):

Export
[[1]]
[[1]]$total
[1] 13

[[1]]$perItem
1 2 3 
5 7 0 

but when I convert this to.json, it is not the same format as the predefined API definition:

toJSON(Export)
[{"total":[13],"perPlan":[5,7,0]}] 

I was wondering how I can convert the output of the apply to have the predefined API?

I tried converting this to array:

toJSON(array(Export), simplify = TRUE)
[{"total":[13],"perPlan":[5,7,0]}] 

but this still has the additional [] around the content of total.

Answer 1

According to the API specification your input should also "embed" your data into this split and mytable list, which can be done with:

Export <- list(list(total = 13,
                    perItem = c(5, 7, 0)))

for_JSON <- list(mytable = list(split = Export))

toJSON(for_JSON, simplify = TRUE, pretty = TRUE)

which gives:

{
  "mytable": {
    "split": [
      {
        "total": 13,
        "perItem": [5, 7, 0]
      }
    ]
  }
} 

This looks like what the API wants.