Nothing
getShape <- function(nam=c("voiv", "polska"), ...)
{
n <- match.arg(nam)
fname <- system.file("shapes", paste(n, ".shp", sep=""), package="mapoland")
readShapePoly(fname, ...)
}
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.