# NOT RUN {
jreast_jt_od %>%
make_passenger_od(jreast_jt,
depart = departure_st_code,
arrive_st_code,
location = st_code,
value = volume) %>%
dplyr::left_join(jreast_jt %>%
dplyr::select(arrive_st_code = st_code,
next_st_name = st_name),
by = "arrive_st_code")
# }
Run the code above in your browser using DataLab