# NOT RUN {
## Simple example
a <- as.tbl_json('{"a": 1, "b": 2}')
b <- as.tbl_json('{"a": 3, "b": 4}')
bind_rows(a,b) %>% spread_values(a=jnumber(a),b=jnumber(b))
## as a list
bind_rows(list(a,b)) %>% spread_all()
# }
Run the code above in your browser using DataLab