## Not run:
# ## create a connection
# (x <- Cushion$new())
#
# file <- system.file("examples/omdb.json", package = "sofa")
# strs <- readLines(file)
#
# ## create a database
# if ("omdb" %in% db_list(x)) {
# invisible(db_delete(x, dbname="omdb"))
# }
# db_create(x, dbname='omdb')
#
# ## add some documents
# invisible(db_bulk_create(x, "omdb", strs))
#
# ## query all in one json blob
# db_explain(x, dbname = "omdb", query = '{
# "selector": {
# "_id": {
# "$gt": null
# }
# }
# }')
# ## End(Not run)
Run the code above in your browser using DataLab