# 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')
# }
Run the code above in your browser using DataLab