R中的压缩/ Zip多个文件

Question

我可以使用jsonlite包和gzfile函数在R中压缩单个json对象，如下所示：

json_object <- toJSON(data_frame, pretty=TRUE)

write(json_object, file=gzfile("json_object.json.gz"))

但是，让我说我在R中有多个json对象。

json_1 <- toJSON(data_frame_1, pretty=TRUE)
json_2 <- toJSON(data_frame_2, pretty=TRUE)
json_3 <- toJSON(data_frame_3, pretty=TRUE)

如何将这3个文件写入SINGLE压缩文件？