如何通过保持JSON结构在R中合并两个JSON对象？

我在R中有两个单独的对象，它们都是JSON格式的，我正试图将它们转换成一个R对象，在它的结构中有两个JSON对象

当我用这两个对象创建一个列表，然后用

toJSON（）

连接时，它会创建两个JSON对象，但我丢失了JSON子结构，对象是平面的

例如：

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

这是我的结构

obj1：

obj2：

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

{
    "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]
    }
}

---

谢谢，

我刚刚找到了我自己问题的答案，只需使用

paste0

而不是

list（）

和

toJSON

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

json
{
    "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]
    }
}

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