stuff with R, maybe fixed an error, who really knows?
added current location for map
zoom to current location added
this has it all