# NOT RUN {
library(valhallr)
# set up origin and destination data
from <- test_data("uottawa")
to <- test_data("cdntirecentre")
# calculate the trip
trip <- route(from = from, to = to)
# show overall trip information
print_trip(trip, all_details = FALSE)
# make an interactive map of the trip using the leaflet package
map_trip(trip, method = "leaflet")
# }
Run the code above in your browser using DataLab