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