Nothing
legend.grid <-
function(x,y=NULL,breaks,col,digits=2,suffix='',type=1,pch=15,pt.cex=2.5,
bg='lightblue',...){
ncol <- length(breaks)-1
# if(missing(col)) col=c('white',heat.colors(ncol-1)[(ncol-1):1])
if(missing(col)) col <- colorRampPalette(c("lightyellow","yellow","orange","red", "brown4"))(ncol)
tempfun <- function(x) format(x,digits=digits)
min <- sapply(breaks[(ncol):1],tempfun)
mid <- sapply((breaks[(ncol):1]+breaks[(ncol + 1):2])/2,tempfun)
max <- sapply(breaks[(ncol+1):2],tempfun)
if (type==1) legend <- paste(mid,suffix,sep='')
if (type==2) legend <- paste(min,' - ',max,suffix,sep='')
legend(x,y,legend=legend,col=col[ncol:1],pch=pch,pt.cex=pt.cex,bg=bg,...)
}
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.