legs2route | R Documentation |
Convert a leg-structured route to a route-structured route
legs2route(legsdf)
legsdf |
a legs-structured route, see |
geom_path()
## Not run: requires Google API key, see ?register_google
(legs_df <- route("houston","galveston"))
legs2route(legs_df)
(legs_df <- route(
"marrs mclean science, baylor university",
"220 south 3rd street, waco, tx 76701", # ninfa"s
alternatives = TRUE))
legs2route(legs_df)
from <- "houston, texas"
to <- "waco, texas"
legs_df <- route(from, to)
qmap("college station, texas", zoom = 8) +
geom_segment(
aes(x = start_lon, y = start_lat, xend = end_lon, yend = end_lat),
colour = "red", size = 1.5, data = legs_df
)
# notice boxy ends
qmap("college station, texas", zoom = 8) +
geom_leg(
aes(x = start_lon, y = start_lat, xend = end_lon, yend = end_lat),
colour = "red", size = 1.5, data = legs_df
)
# notice overshooting ends
route_df <- legs2route(legs_df)
qmap("college station, texas", zoom = 8) +
geom_path(
aes(x = lon, y = lat),
colour = "red", size = 1.5, data = route_df, lineend = "round"
)
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.