Nothing
recoder <- function(x, from = c(), to = c()){
if(length(x) == 0){
return(x)
}
stopifnot(length(from) == length(to))
nongiven <- unique(x[!is.na(x)])
nongiven <- setdiff(nongiven, from)
if(length(nongiven) > 0) {
from <- append(x = from, values = nongiven)
to <- append(x = to, values = nongiven)
}
to[match(x, from)]
}
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.