R/util.R

In wilsonfreitas/numbersBR: Validate, Compare and Format Identification Numbers from Brazil

Defines functions extract_digit strip_numeric is.valid

Documented in is.valid is.valid

extract_digit <- function(x, n) x %/% 10^(n-1) %% 10

strip_numeric <- function(x) {
  x <- as.character(x)
  lx <- Map(function(ix) substr(x, ix, ix), seq_len(nchar(x)))
  as.integer(unlist(lx))
}


#' @export
#' @rdname is.valid
is.valid <- function(x) UseMethod('is.valid', x)