# NOT RUN {
# This is how the dataset was constructed
flow_dests = flow
flow_dests$Area.of.workplace = sample(x = destinations$WZ11CD, size = nrow(flow))
flow_dests = dplyr::rename(flow_dests, WZ11CD = Area.of.workplace)
devtools::use_data(flow_dests)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab