inst/scraping_scripts/profanity/profanity_zac_anger.R

In trinker/lexicon: Lexicons for Text Analysis

pacman::p_load(xml2, rvest, tidyverse, jsonlite)

profanity_zac_anger <- 'https://raw.githubusercontent.com/zacanger/profane-words/master/words.json' %>%
    jsonlite::fromJSON() %>%
    tolower() %>%
    unique() %>%
    sort()

## drop non-ascii
profanity_zac_anger <- grep('[^ -~]', profanity_zac_anger, value = TRUE, invert = TRUE)

pax::new_data(profanity_zac_anger)
pax:::roxdat(profanity_zac_anger, 'profanity_zac_anger')