如何将整数转换为字符串文字？

Question

是否有将整数转换为英语等值的函数？即实现转型：

some_function(1) = 'one'

Answer 1

使用english包

library(english)
english(1:10)
# [1] one   two   three four  five  six   seven eight nine  ten  

Answer 2

some_function <- function(i) {
     stopifnot(i %in% 1:9)
     lookup <- c("one", "two", "three",
                 "four", "five", "six",
                 "seven", "eight", "nine")
     lookup[i]
}

根据需要进行修改。