library(ggmap)
    route_df <- route(from = "Cambridge, 02138, USA",
              to = "Massachusetts Ave, 02139, USA",
              mode = "driving", structure = "route", alternatives = TRUE)