R/load_words.R

In antrologos/searchWordsInTexts: A tiny little mini package for finding a list of words in a text data.frame

#' @export

load_words <- function(path_to_excel_list){
        words <- readxl::read_excel(path_to_excel_list)
        words <- as.matrix(words) %>% as.character()
        words <- words[!(words=="?")]

        words <- words[!is.na(words)]

        most_probable_encoding <- rvest::guess_encoding(x = words)[1, 1]
        Encoding(words)        <- most_probable_encoding
        words <- iconv(words,
                       from = most_probable_encoding,
                       to = "ASCII//TRANSLIT")

        words <- tolower(words)

        words
}