https://github.com/cran/RgoogleMaps
Tip revision: fe1646ab6e62485672da5bf26ed6f4bc4ae94f61 authored by Markus Loecher, Sense Networks on 11 May 2011, 00:00:00 UTC
version 1.1.9.7
version 1.1.9.7
Tip revision: fe1646a
LatLon2XY.centered.R
`LatLon2XY.centered` <-
function(MyMap,lat,lon,zoom){
lat.center <- MyMap[[1]];
lon.center <- MyMap[[2]];
if (missing(zoom)) zoom <- MyMap[[3]];
mypoints <- LatLon2XY(lat,lon,zoom);
mycenter <- LatLon2XY(lat.center,lon.center,zoom);
Rcoords <- Tile2R(mypoints, mycenter);
return(list(newX=Rcoords$X,newY=Rcoords$Y));
}