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

This should be better:

digitsum <- function(x) sum(floor(x / 10^(0:(nchar(x) - 1))) %% 10)