data-raw/common_words.R

# Retrieve word list
# Warns about incomplete final line, but that doesn't impact us here
common_words <- suppressWarnings(readLines("https://gist.githubusercontent.com/deekayen/4148741/raw/98d35708fa344717d8eee15d11987de6c8e26d7d/1-1000.txt"))
common_words <- common_words[common_words != "slave"]
common_words <- gsub("[[:punct:]]|\'|\"", "", common_words)
usethis::use_data(common_words, overwrite = TRUE)
mikemahoney218/proceduralnames documentation built on Aug. 17, 2022, 7:07 p.m.