# helper function to lookup in dictionary and return NA if not found.
category_from_dictionary <- function(value, dict) {
if (value %in% names(dict)) {
return(as.character(dict[value]))
}
else {
return(NA)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.