Sådan sender du flere dokumenter ved hjælp af RMongo

Er der nogen, der har fundet ud af dette? Jeg ville virkelig gerne have en bedre måde at gøre dette på, men for nu går jeg bare over listen (ikke ideel)

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