Function by John Fox found here: http://tolstoy.newcastle.edu.au/R/help/05/04/2715.html and https://github.com/ateucher/useful_code/blob/master/R/numbers2words.r
numbers2words(x)
The numbers that need to be converted to string.
numbers2words(x = 1890)
#> [1] "one thousand, eight hundred and ninety"
numbers2words(x = 3)
#> [1] "three"
numbers2words(x = 1800090)
#> [1] "one million, eight hundred thousand, ninety"