Nothing
reassignLabelsVec <-
function (x)
{
labels = unique (x)
x.new = x
nlabels = length (labels)
for (i in 1:nlabels)
x.new[which (x==labels[i])] = i
return (x.new)
}
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.