doc <- am_create()
am_put(doc, AM_ROOT, "text", am_text("Hello World"))
text_obj <- am_get(doc, AM_ROOT, "text")
cursor <- am_cursor(text_obj, 5)
str <- am_cursor_to_string(cursor)
str
# Restore cursor later
restored <- am_cursor_from_string(str, text_obj)
am_cursor_position(restored) # 5
am_close(doc)
Run the code above in your browser using DataLab