Nothing
`merc.sphr.ll` <-
function(LON0, x, y)
{
R.MAPK= MAPconstants()$R.MAPK
RAD2DEG=180/pi
phi = 90 - RAD2DEG * 2 * atan(exp(-y / R.MAPK));
lam = RAD2DEG * (x / R.MAPK) + LON0;
return(list(lat=phi, lon=lam))
}
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.