json - 如何在保留 JSON 结构的情况下合并 R 中的两个 JSON 对象？

Question

我在 R 中有两个独立的对象，它们具有 JSON 格式，我正在尝试将其转换为单个 R 对象，其结构中有两个 JSON 对象。

当我创建一个包含两个对象的列表，然后与 toJSON() 连接时，它会创建两个 JSON 对象，但我丢失了 JSON 子结构，并且对象是扁平的。

例如:

json <- list(obj1, obj2)
names(json) <- c("object1", "object2")  
json <- toJSON(json)

结果如下所示:

{
    "object1": ["{\"cum\":[[[1421020800000, -0.0618],[1422835200000, 0.3907] ... "],
    "object2": ["{\"cum\":[[[1421020800000, -0.015],[1422835200000, 0.3447] ... "]
}

这是我的对象结构。

对象1:

{
    "cum": [
        [
            [1421020800000, -0.0618],
            [1422835200000, 0.3907]
        ]
    ],
    "alloc": {
        "Current": [0.36, 0.725, 0.074, 0.473, 0.029, 10, 0.46, 0.414, 0.965],
    },
    "time": [14],
    "position": [15.14]
}

对象2:

{
    "cum": [
        [
            [1421020800000, -0.015],
            [1422835200000, 0.3447]
        ]
    ],
    "alloc": {
        "Current": [0.6, 0.5, 0.04, 0.3, 0.09, 1, 0.6, 0.44, 0.5],
    },
    "time": [19],
    "position": [1.09]
}

这就是我想要实现的目标:

{
    "object1": {
        "cum": [
            [
                [1421020800000, -0.0618],
                [1422835200000, 0.3907]
            ]
        ],
        "alloc": {
            "Current": [0.36, 0.725, 0.074, 0.473, 0.029, 10, 0.46, 0.414, 0.965]
        },
        "time": [14],
        "position": [15.14]
    },

    "object2": {
        "cum": [
            [
                [1421020800000, -0.015],
                [1422835200000, 0.3447]
            ]
        ],
        "alloc": {
            "Current": [0.6, 0.5, 0.04, 0.3, 0.09, 1, 0.6, 0.44, 0.5]
        },
        "time": [19],
        "position": [1.09]
    }
}

谢谢，

Answer 1

我刚刚找到了我自己问题的答案，只需使用 paste0 而不是 list() 和 toJSON。

json <- paste0('{"object1":', json1, ',"object2":', json2, '}' )