## Not run:
# (x <- Cushion$new())
#
# if ("leothelion" %in% db_list(x)) {
# invisible(db_delete(x, dbname="leothelion"))
# }
# db_create(x, dbname='leothelion')
#
# ## see if its there now
# db_list(x)
# ## End(Not run)
Run the code above in your browser using DataLab