# NOT RUN {
user <- Sys.getenv("COUCHDB_TEST_USER")
pwd <- Sys.getenv("COUCHDB_TEST_PWD")
(x <- Cushion$new(user=user, pwd=pwd))
if ("leothetiger" %in% db_list(x)) {
invisible(db_delete(x, dbname="leothetiger"))
}
db_create(x, dbname='leothetiger')
## see if its there now
db_list(x)
# }
Run the code above in your browser using DataLab