Skip to main content

Browse the archive

https://github.com/cran/RgoogleMaps
23 November 2023, 02:58:06 UTC
Revision ea4e2c0a951b77d8fd00969dbe7d699d3f877315 authored by Markus Loecher, Sense Networks on 20 July 2009, 00:00:00 UTC, committed by Gabor Csardi on 20 July 2009, 00:00:00 UTC 
version 1.1.5
1 parent d2c702a
Raw File
Tip revision: ea4e2c0a951b77d8fd00969dbe7d699d3f877315 authored by Markus Loecher, Sense Networks on 20 July 2009, 00:00:00 UTC
version 1.1.5
Tip revision: ea4e2c0
PlotPolysOnStaticMap.R 
`PlotPolysOnStaticMap` <-
function(MyMap, polys, col, verbose = 1,...){
  Rcoords <- LatLon2XY.centered(MyMap,lat= polys[,"Y"],lon= polys[,"X"]);
  polys.XY <- polys;
  polys.XY[,"X"] <- Rcoords$newX;
  polys.XY[,"Y"] <- Rcoords$newY;
  if (!missing(col)) polys.XY[,"col"] <- col;
  if ( !( "col" %in% colnames(polys.XY)) )
     polys.XY[,"col"] <- rgb(.1,.1,.1,.05);
  #polys.XY[polys.XY[,"PID"] == 292,"col"] <- rgb(1,0,0,.75)
  tmp <- PlotOnStaticMap(MyMap, verbose=0, ...)
  tmp <- by(polys.XY[,c("X","Y","col")], polys.XY[,"PID"], mypolygon, lwd = .25);
}
back to top