## Not run:
# (x <- Cushion$new())
#
# if ("sofadb" %in% db_list(x)) {
# invisible(db_delete(x, dbname="sofadb"))
# }
# db_create(x, dbname='sofadb')
#
# db_info(x, dbname="sofadb")
# db_info(x, dbname="sofadb", as='json')
# ## End(Not run)
Run the code above in your browser using DataLab