db_replicate | R Documentation |
Upload (replicate) a local database to a remote database server, e.g., Cloudant, Iriscouch
db_replicate(from, to, dbname, createdb = FALSE, as = "list", ...)
from |
Couch to replicate from. An object of class Cushion. Required. |
to |
Remote couch to replicate to. An object of class Cushion. Required. |
dbname |
(character) Database name. Required. |
createdb |
If |
as |
(character) One of list (default) or json |
... |
Curl args passed on to crul::HttpClient |
JSON as a character string or a list (determined by the
as
parameter)
## Not run:
if (interactive()) {
## create a connection
user <- Sys.getenv("COUCHDB_TEST_USER")
pwd <- Sys.getenv("COUCHDB_TEST_PWD")
(x <- Cushion$new(user = user, pwd = pwd))
# 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")
## check changes on the remote
db_list(z)
db_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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.