Nothing
pstext <- function(x, cmd="-J -R -O -K", file=getOption("gmt.file"))
{
if(is.null(file))
stop("please pass a valid 'file' argument, or run gmt(file=\"myfile\")")
owd <- setwd(dirname(file)); on.exit(setwd(owd))
tmp <- paste(dirname(tempdir()), "text.gmt", sep="/")
r2gmt(x, tmp)
gmt.system(paste("gmt pstext",tmp,cmd), file=file, append=TRUE)
invisible(NULL)
}
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.