doc <- am_create()
am_put(doc, AM_ROOT, "text", am_text("Hello World"))
text_obj <- am_get(doc, AM_ROOT, "text")
cursor1 <- am_cursor(text_obj, 5)
cursor2 <- am_cursor(text_obj, 5)
cursor3 <- am_cursor(text_obj, 3)
am_cursor_equal(cursor1, cursor2) # TRUE
am_cursor_equal(cursor1, cursor3) # FALSE
am_close(doc)
Run the code above in your browser using DataLab