RMongo का उपयोग करके एकाधिक दस्तावेज़ कैसे भेजें

क्या किसी ने यह पता लगाया है? मैं वास्तव में ऐसा करने का एक बेहतर तरीका चाहता हूं, लेकिन अभी के लिए सूची में सिर्फ लूपिंग कर रहा हूं (आदर्श नहीं)

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)
}