# NOT RUN {
nested_ped <- pedestrian %>%
nest(-Sensor)
nested_ped %>%
unnest(key = id(Sensor))
nested_tourism <- tourism %>%
nest(-Region, -State)
nested_tourism %>%
unnest(key = id(Region | State))
# }
Run the code above in your browser using DataLab