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