remove redundant character counts

get_words function was counting characters in all words. This is
unnecessary since many words are repeated. This fix will improve the
speed of the 'word method' password generation. Partially resolves #2.

R/utils.R

@@ -12,7 +12,7 @@ pw_methods <- function(){
 get_words <- function(){
   utils::data("lotr", envir = environment())
   text_datf <- data.frame(txt = lotr)
-  words_datf <- tidytext::unnest_tokens(text_datf, word, txt, to_lower = F)
+  words_datf <- dplyr::distinct(tidytext::unnest_tokens(text_datf, word, txt, to_lower = F))
   words_datf$count <- apply(words_datf, MARGIN = 1, nchar)
   return(words_datf)
 }