doc <- am_create()
doc$key <- "value"
am_commit(doc)
clone <- am_clone(doc)
clone$key # "value"
# Clone preserves the actor ID
am_get_actor_hex(doc) == am_get_actor_hex(clone) # TRUE
# Changes to clone don't affect original
clone$key <- "changed"
doc$key # still "value"
am_close(doc)
am_close(clone)
Run the code above in your browser using DataLab