# NOT RUN {
zoom_united <- dm_nycflights13() %>%
dm_zoom_to(flights) %>%
select(year, month, day) %>%
unite("month_day", month, day)
zoom_united
zoom_united %>%
separate(month_day, c("month", "day"))
# }
Run the code above in your browser using DataLab