Numeric to Alphabetic Lettering Function in R [duplicate]

Answer 1

Here's a possible solution:

dec2abc<- function(number){
    digit<- LETTERS[(number-1)%%26+1]
    number<- (number - 1 - (number-1)%%26)/26
    while (number > 26){
        digit<- paste0(LETTERS[(number-1)%%26+1], digit)
        number<- (number - 1 - (number-1)%%26)/26 
        }
    digit<- paste0(LETTERS[number], digit)
    return(digit)
}

This works with any positive integer, but I think the more digits you add to the number, you'll be testing the memory abilities of your computer.