R/cw_normalize_words.R

In crossword.r: Generating Crosswords from Word Lists

#' normalize words to be added to grid
#'
#' @param words character vector of words to normalize for crossword usage
#'
#'
cw_normalize_words <- function(words){

  # check for non
  iffer <- stringr::str_detect(words, "\\W")
  if ( sum(iffer) > 0 ){
    warning(
      "There are words containing non-letters: ",
      paste(words[iffer], collapse = "; ")
    )
  }


  words <- toupper(words)
  words <- stringr::str_replace_all(words, " +", "")
  words <- stringr::str_replace_all(words, "\u00c4", "AE")
  words <- stringr::str_replace_all(words, "\u00d6", "OE")
  words <- stringr::str_replace_all(words, "\u00dc", "UE")
  words <- stringr::str_replace_all(words, "\u00df", "SS")

  # add empty space before and after
  words <- paste0("#", words, "#")

  # return
  return(words)
}