Drawing a line between 2 points on the map in leaflet using the shortest distance first

Question

Good afternoon,

First off let me start sharing my code ( i hope its in a adequate format so its legible ).

Locaties <- data.frame(
  Naam = c("