Nothing
polyGEOmapXY<-function(lat=0, lon=0, PROJ=NULL, PMAT=NULL, ... )
{
if(missing(PMAT)) { PMAT=NULL }
pxy = GLOB.XY(lat, lon, PROJ)
if(!is.null(PMAT))
{
tem1 = trans3d(pxy$x, pxy$y, rep(0, length(pxy$y)) , PMAT)
}
else
{
tem1 =pxy
}
polygon(tem1, ...)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.