x <- c(
NA,
'then .456 good',
'none',
"I like 346,457 ice cream cones.",
"I like 123456789 cashes.",
"They are 99 percent good and 45678.2345667"
)
replace_number(x)
replace_number(x, num.paste = TRUE)
replace_number(x, remove=TRUE)
Run the code above in your browser using DataLab