jsonファイルを結合してフォーマットを保存する

Question

以下のような2つのjsonファイルがあります。私の目標は、それらを結合し、正確に同じフォーマットを維持することです。

私は以下を試しましたが、両方のファイルが別々に[ ]で囲まれているので、両方のファイルを正しく組み合わせてフォーマットを保持しません。どのようにしてファイル全体に1組の括弧しか組合わせて保持しませんか？

files <- c("test.json","test2.json") 
jsonl <- lapply(files, function(f) fromJSON(file = f)) 
jsonc <- toJSON(jsonl) 
write(jsonc, file = "two.json") 

Rの方が良い解決法はありますか？

test.json：

[ 
    { 
    "vendor": 0, 
    "startTime": 4380, 
    "endTime": 4445 
    }, 
    { 
    "vendor": 0, 
    "startTime": 4448, 
    "endTime": 4453 
    }, 
    { 
    "vendor": 0, 
    "startTime": 4696, 
    "endTime": 4880 
    } 
] 

望ましくない出力：

[ 
    [ 
    {"vendor":0,"startTime":4380,"endTime":4445}, 
    {"vendor":0,"startTime":4448,"endTime":4453}, 
    {"vendor":0,"startTime":4696,"endTime":4880}], 

    [{"vendor":0,"startTime":4380,"endTime":4445}, 
     {"vendor":0,"startTime":4448,"endTime":4453}, 
     {"vendor":0,"startTime":4696,"endTime":4880} 
    ] 
] 

所望の出力：

[ 
    {"vendor":0,"startTime":4380,"endTime":4445}, 
    {"vendor":0,"startTime":4448,"endTime":4453}, 
    {"vendor":0,"startTime":4696,"endTime":4880}, 
    {"vendor":0,"startTime":4380,"endTime":4445}, 
    {"vendor":0,"startTime":4448,"endTime":4453}, 
    {"vendor":0,"startTime":4696,"endTime":4880} 
    ] 

Answer 1

あなたはrbind

を使用して書き込む前にそれらを結合することができます