# Create two documents
doc1 <- am_create()
doc2 <- am_create()
# Make changes in doc1
am_put(doc1, AM_ROOT, "x", 1)
am_commit(doc1)
# Get changes and apply to doc2
changes <- am_get_changes(doc1, NULL)
am_apply_changes(doc2, changes)
# Now doc2 has the same data as doc1
am_close(doc1)
am_close(doc2)
Run the code above in your browser using DataLab