## Not run:
# ## create a connection
# (x <- Cushion$new())
#
# # Create a database locally
# db_list(x)
# if ("hello_earth" %in% db_list(x)) {
# invisible(db_delete(x, dbname="hello_earth"))
# }
# db_create(x, 'hello_earth')
#
# ## replicate to a remote server
# z <- Cushion$new(host = "ropensci.cloudant.com", transport = 'https',
# port = NULL, user = 'ropensci', pwd = Sys.getenv('CLOUDANT_PWD'))
#
# ## do the replication
# db_replicate(x, z, dbname = "hello_earth", createdb = TRUE)
#
# ## check changes on the remote
# db_list(z)
# changes(z, dbname = "hello_earth")
#
# ## make some changes on the remote
# doc_create(z, dbname = "hello_earth",
# '{"language":"python","library":"requests"}', 'stuff')
# changes(z, dbname = "hello_earth")
#
# ## create another document, and try to get it
# doc_create(z, dbname = "hello_earth", doc = '{"language":"R"}',
# docid="R_rules")
# doc_get(z, dbname = "hello_earth", docid='R_rules')
#
# ## cleanup - delete the database
# db_delete(z, 'hello_earth')
# ## End(Not run)
Run the code above in your browser using DataLab