Nothing
gmt <- function(par=NULL, file="map.ps", style="s", quiet=TRUE)
{
owd <- setwd(dirname(file)); on.exit(setwd(owd))
if(is.character(par))
gmt.system(paste0("gmt set -D", style, " ", par))
options(gmt.file=file)
if(!quiet)
{
gmtdefaults <- gmt.system("gmt defaults -L")
cat(paste(gmtdefaults,collapse="\n"), "\n\n")
print(options("gmt.file"))
}
invisible(options("gmt.file"))
}
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.