Nothing
poly.counts<-function (pts, polys)
colSums(gContains(polys, pts, byid=TRUE))
poly.areas <- function(polys) gArea(polys, byid=TRUE)
generalize.polys <- function(sp,tol) gSimplify(sp,tol)
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.