## Not run:
# (x <- Cushion$new())
#
# if ("sofadb" %in% db_list(x)) {
# invisible(db_delete(x, dbname="sofadb"))
# }
# db_create(x, dbname='sofadb')
#
# doc1 <- '{"name":"drink","beer":"IPA"}'
# doc_create(x, dbname="sofadb", doc=doc1, docid="b_beer")
# doc_get(x, dbname = "sofadb", docid = "b_beer")
# revs <- db_revisions(x, dbname = "sofadb", docid = "b_beer")
# doc2 <- '{"name":"drink","beer":"IPA","note":"yummy","note2":"yay"}'
# doc_update(x, dbname="sofadb", doc=doc2, docid="b_beer", rev=revs[1])
# db_revisions(x, dbname = "sofadb", docid = "b_beer")
# ## End(Not run)
Run the code above in your browser using DataLab