data-raw/get_words.R

words <- readr::read_lines("data-raw/1-1000.txt")
words <- words[nchar(words) == 5]
words <- words[!(grepl("'", words))]

usethis::use_data(words, overwrite = TRUE)
jemus42/tauturri documentation built on Feb. 7, 2024, 2 a.m.