R 语言中怎么求一个数的组成数字之和？

Question

比如： 输入一个数字1243，输出的结果为这四个数字之和即为10

Answer 1

a <- 13245
sum <- 0
while(a!=0){
  sum = a%%10 + sum
  a = a %/% 10
} 
sum