doc <- am_create()
am_put(doc, AM_ROOT, "x", 1)
am_commit(doc, "First")
am_put(doc, AM_ROOT, "y", 2)
am_commit(doc, "Second")
history <- am_get_changes(doc)
deps1 <- am_change_deps(history[[1]])
length(deps1) # 0 (first change has no deps)
deps2 <- am_change_deps(history[[2]])
length(deps2) # 1 (depends on first change)
am_close(doc)
Run the code above in your browser using DataLab