if (FALSE) {
# Create a CouchDB connection client
user <- Sys.getenv("COUCHDB_TEST_USER")
pwd <- Sys.getenv("COUCHDB_TEST_PWD")
(x <- Cushion$new(user = user, pwd = pwd))
membership(x)
membership(x, as = "json")
}
Run the code above in your browser using DataLab