Nothing
usagehistory <- function (x)
return(x@usagehistory)
"usagehistory<-" <- function(x, value)
{
xx <- x
if (is.null(value))
{
xx@usagehistory <- character()
} else {
xx@usagehistory <- if (is.null(xx@usagehistory)) value else c(xx@usagehistory, value)
}
x <- xx
}
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.