Nothing
library(checkmate)
ssample = function(lvls, N) {
x = c(lvls, sample(lvls, N - length(lvls), replace = TRUE))
factor(sample(x), levels = lvls)
}
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.