# NOT RUN {
data(psyo)
# Un-named list
point <- c(4.936197, 52.314701)
distance_point(psyo[1,], point, bind = FALSE)
# Named list
point <- c(lat = 52.314701, lon = 4.936197)
distance_point(psyo[1,], point, bind = FALSE)
# Multiple distance to point
coordinates <- distance_point(psyo, point)
# }
Run the code above in your browser using DataLab