Meerdere documenten verzenden met RMongo

Heeft iemand dit bedacht? Ik zou graag een betere manier willen om dit te doen, maar voor nu loop ik gewoon door de lijst (niet ideaal)

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