if (FALSE) {
x <- c(
"I like the 1st one not the 22nd one.",
"For the 100th time stop!"
)
replace_ordinal(x)
replace_ordinal(x, FALSE)
replace_ordinal(x, remove = TRUE)
"I like the 1st 1 not the 22nd 1." %>% replace_ordinal %>% replace_number
}
Run the code above in your browser using DataLab