if (FALSE) {
src <- src_sqlite()
docdb_create(src,
key = "diamonds_small",
value = as.data.frame(diamonds[1:3000L, ])
)
head(docdb_get(src, "diamonds_small"))
docdb_create(src, key = "contacts", value = contacts)
docdb_get(src, "contacts")[["friends"]]
}
Run the code above in your browser using DataLab