Nothing
##' Generalized rot13 --> ../man/rot13.Rd
rotn <- function (ch, n = 13)
{
ch <- as.character(ch) # or error
stopifnot(0 <= n, n <= 26)
i <- c(if(n < 26) (n+1):26, seq_len(n))
chartr(old = paste(c(letters, LETTERS ), collapse=""),
new = paste(c(letters[i],LETTERS[i]), collapse=""),
x = ch)
}
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.