How to calculate the distance from a ZIP to a point in R