doc <- am_create()
am_put(doc, AM_ROOT, "x", 1)
am_commit(doc, "Initial")
am_put(doc, AM_ROOT, "x", 2)
am_commit(doc, "Update")
history <- am_get_history(doc)
cat("Document history contains", length(history), "change(s)\n")
Run the code above in your browser using DataLab