doc <- am_create()
am_put(doc, AM_ROOT, "user", list(
name = "Alice",
address = list(city = "NYC", zip = 10001L)
))
# Navigate to nested value
am_get_path(doc, c("user", "address", "city")) # "NYC"
# Mixed navigation (map key, then list index)
doc$users <- list(
list(name = "Bob"),
list(name = "Carol")
)
am_get_path(doc, list("users", 1, "name")) # "Bob"
am_close(doc)
Run the code above in your browser using DataLab