Create nearest.R

New function to extract the nearest location in a station or field