Hur man skickar flera dokument med RMongo

Har någon kommit på detta? Jag skulle verkligen vilja ha ett bättre sätt att göra detta på, men för närvarande går jag bara över listan (inte idealiskt)

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