word_checker <- function(text, words_add = character(),
words_ignore = character()) {
bad_words_updated <- setdiff(union(offensiveR::bad_words, words_add), words_ignore)
text %>% purrr::map(~ .x %>%
tokenizers::tokenize_words() %>%
unlist() %>%
intersect(bad_words_updated))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.