Cómo enviar múltiples documentos usando RMongo

¿Alguien ha descubierto esto? Realmente me gustaría una mejor manera de hacer esto, pero por ahora solo estoy repasando la lista (no es lo ideal)

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