Nothing
`choropleth` <-
function(sp,v,shading=auto.shading(v),...)
{ i = shading$cols[1+findInterval(v,shading$breaks)]
plot(sp,col=i,...) }
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.