# NOT RUN {
# Provide an API Key for a HERE project
set_key("<YOUR API KEY>")
# Connection sections
sections <- connection(
origin = poi[3:4, ], destination = poi[5:6, ],
summary = FALSE, url_only = TRUE
)
# Connection summary
summary <- connection(
origin = poi[3:4, ], destination = poi[5:6, ],
summary = TRUE, url_only = TRUE
)
# }
Run the code above in your browser using DataLab