match_replace <- function (v, dic, force = TRUE)
{
matches <- dic[[2]][match(v, dic[[1]])]
out <- matches
if (!force)
out[is.na(matches)] <- v[is.na(matches)]
out
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.