Convert non-decimal integer numbers as string to decimal integers in R

to_decimal.r

# Examples:
# to_decimal("83", 12)    : 44
# to_decimal("01101", 2)  : 22


to_decimal <- function(num, base) {

  digits   <- strsplit(num, "")[[1]]
  value    <- 0
  sequence <- seq_along(digits)

  
  for ( ind in sequence[rev(sequence)] ) {
    current <- as.integer(digits[ind]) * base ^ (ind - 1)
    value   <- value + current
  }
  
  return(value)

}