Nothing
maptools <- function(changes=FALSE) {
.DESC <- packageDescription("maptools")
cat(.DESC[["Package"]], ", version ", .DESC[["Version"]],
", ", .DESC[["Date"]], "\n", sep="")
.CH <- NULL
if (changes) {
cat("\n")
file <- system.file("changes", package = "maptools")
.CH <- scan(file, list(version="character",
changes="character"), sep="\t", quiet=TRUE)
for (i in length(.CH$changes):1) {
cat(unlist(strsplit(.CH$changes[i], " ")), fill=TRUE,
labels=.CH$version[i])
cat("\n")
}
}
invisible(.CH)
}
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.