Digit sum function in R

Question

I was looking for the quite basic numeric function digit sum in R.

• I did not find a preinstalled function.
• Even in Stackoverflow\'s extensive R libra

Answer 1

What I do for finding the sum of digits in R :

x = readline("Enter the number")
a = as.integer(c(strsplit(x,split="")[[1]]))
print((sum(a)))