Nothing
gx.subset <-
function (dfname, subset = TRUE)
{
subset <- eval(substitute(subset), dfname)
data.frame(lapply(dfname[subset, ], function(x) if (is.factor(x))
x[, drop = TRUE]
else x), row.names = row.names(dfname)[subset])
}
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.