| Author | DaveJarvis <email> |
|---|---|
| Date | 2023-01-27 00:42:38 GMT-0800 |
| Commit | 904884be62bbc9bd58622de391765ef5d7c15420 |
| Parent | 9b622a7 |
| Delta | 1 line added, 2 lines removed, 1-line decrease |
|---|
| # ----------------------------------------------------------------------------- | ||
| pluralize_ch_sh_ss_suffixes <- function( word ) { | ||
| - output <- sub( "([cs]h)$", "\\1es", word ) | ||
| - output <- sub( "(x|z)$", "\\1es", word ) | ||
| + output <- sub( "(([cs]h)|(x|z))$", "\\1es", word ) | ||
| output <- replace_suffix( output, "ss", "sses" ) | ||