Alguém desvendou isso? Eu realmente gostaria de uma maneira melhor de fazer isso, mas por enquanto estou apenas percorrendo a lista (não é o 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)
}