Nothing
random <- function (x, ...) UseMethod("random")
# adapted from utils:::head.data.frame
random.data.frame <- function (x, n = 6L, ...)
{
stopifnot(length(n) == 1L)
n <- if (n < 0L)
max(nrow(x) + n, 0L)
else min(n, nrow(x))
ii <- sort(sample(seq_len(nrow(x)), n))
x[ii, , drop = FALSE]
}
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.