doc <- am_create()
# Initially, no local changes
am_get_last_local_change(doc) # NULL
# Make a change
doc$key <- "value"
am_commit(doc, "Add key")
# Now we have a local change
change <- am_get_last_local_change(doc)
change
am_change_message(change) # "Add key"
am_close(doc)
Run the code above in your browser using DataLab