Nothing
#' 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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.