Create nearest.R

A new function that extracts the nearest locations in a station or a field