library(magrittr)  # for %>%
c('{"name": "bob", "children": ["sally", "george"]}', '{"name": "anne"}') %>%
  spread_values(parent.name = jstring("name")) %>%
  enter_object("children") %>%
  gather_array %>%
  append_values_string("children")
Run the code above in your browser using DataLab