Nothing
Northarrow <-
function(Xbottom,Ybottom,Xtop,Ytop,Xtext,Ytext,Alength,Aangle,Alwd,Tcex)
{
# Draw North arrow on a map
#
arrows(Xbottom,Ybottom,Xtop,Ytop,length=Alength,angle=Aangle,lwd=Alwd)
text(Xtext,Ytext,"N",cex=Tcex)
invisible()
}
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.