Nothing
"newXPtr" <-
function(n, k=0)
{
tmp <- .Call("newXPtr", as.integer(n), as.numeric(k), PACKAGE = "rrp")
attributes(tmp) <- list(class=c(class(tmp), "XPtr"), Size=n)
return(invisible(tmp))
}
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.