Nothing
prepare_k <- function(k) {
k <- sort.int(unique.default(must(as.integer(k))))
if (length(k) < 1L || anyNA(k) || any(k < 1L))
stop("'k' must contain positive numbers throughout")
names(k) <- k
k
}
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.