R functions for using googlemap