R/word_checker.R

In EmilHvitfeldt/offensiveR: Checks for offensive words in texts/documents

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))
}