doc <- am_create()
am_put(doc, AM_ROOT, "content", am_text("Hello"))
text_obj <- am_get(doc, AM_ROOT, "content")
# Efficiently update text by computing and applying diff in one step
am_text_update(text_obj, "Hello", "Hello World")
am_text_content(text_obj) # "Hello World"
# Works with Unicode
am_text_update(text_obj, "Hello World", "Hello World!")
am_text_content(text_obj) # "Hello World!"
Run the code above in your browser using DataLab