Ad
v2S3mhZcvs.Tarlanc

Get iterated digit sum

Code
Diff
  • getIDS <- function(string){
  stringr::str_split(string, "", simplify = TRUE) %>% 
    as.numeric() %>% 
    sum()
}
    • getIDS <- function(string) {
    • sum(as.integer(strsplit(string, "")[[1]]))
    • }
    • getIDS <- function(string){
    • stringr::str_split(string, "", simplify = TRUE) %>%
    • as.numeric() %>%
    • sum()
    • }