# NOT RUN {
# }
# NOT RUN {
# to cut down on check time
from <- "houson, texas"
to <- "waco, texas"
route_df <- route(from, to, structure = "route")
qmap("college station, texas", zoom = 8) +
geom_path(
aes(x = lon, y = lat), colour = "red", size = 1.5,
data = route_df, lineend = "round"
)
qmap("college station, texas", zoom = 6) +
geom_path(
aes(x = lon, y = lat), colour = "red", size = 1.5,
data = route_df, lineend = "round"
)
routeQueryCheck()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab