Option 1:
Use the as.english
function from the ‘english’ package:
library(english)
as.english(2017)
Option 2:
Use the replace_number
function from the ‘qdap’ package.
library(qdap)
replace_number(2017)
Option 3:
Use the numbers_to_words
function from the ‘xfun’ package.
library(xfun)
numbers_to_words(2017)