Cách gửi nhiều tài liệu bằng RMongo

Có ai đã tìm ra điều này? Tôi thực sự muốn có một cách tốt hơn để làm điều này, nhưng hiện tại tôi chỉ đang lặp lại danh sách (không phải là lý tưởng)

data=data.frame(A=c(1,2),B=c(3,4))  
L=lapply(split(data,rownames(data)),as.list)  
names(L)=NULL  
for (i in 1:NROW(L)) {
    dataJSON = toJSON(L[[i]])  
    output <- dbInsertDocument(mongo, "test_data7", dataJSON)
}