map <-
function (x, from, to, strict = TRUE, ...)
{
stopifnot(length(to) == length(from))
res <- to[match(x, table = from)]
if (!strict)
res[!(x %in% from)] <- x[!(x %in% from)]
res
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.