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

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

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

谢谢！！！懂了！