set.seed(123)
gm <- gapminder::gapminder
gm_nest <- gm %>% tidyr::nest(country_data = -continent)
gm_nest %>%
nest_unite(.nest_data = country_data,
col = comb,
year,
pop)
Run the code above in your browser using DataLab