## Not run:
# (x <- Cushion$new())
#
# if ("sofa" %in% db_list(x)) {
# db_delete(x, dbname = "sofadb")
# }
# db_create(x, dbname = "sofadb")
#
# doc1 <- '{"name": "drink", "beer": "IPA", "score": 5}'
# doc_create(x, dbname="sofadb", doc1, docid="abeer")
# doc_create(x, dbname="sofadb", doc1, docid="morebeer", as='json')
#
# db_revisions(x, dbname="sofadb", docid="abeer")
# db_revisions(x, dbname="sofadb", docid="abeer", simplify=FALSE)
# db_revisions(x, dbname="sofadb", docid="abeer", as='json')
# db_revisions(x, dbname="sofadb", docid="abeer", simplify=FALSE, as='json')
# ## End(Not run)
Run the code above in your browser using DataLab