So senden Sie mehrere Dokumente mit RMongo

Hat das jemand herausgefunden? Ich hätte wirklich gerne einen besseren Weg, dies zu tun, aber im Moment gehe ich nur die Liste durch (nicht 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)
}