如何通过保持JSON结构来合并R中的两个JSON对象?

时间:2017-04-12 17:31:43

标签: json r

我在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] ... "]
}

这是我的objets结构。

OBJ1:

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

OBJ2:

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

谢谢,

1 个答案:

答案 0 :(得分:2)

我刚刚找到了自己问题的答案,只需使用paste0代替list()toJSON

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