R/restore_npers.R

In suzanbaert/kycdata: Data Mutation Functions for work purposes

#' Restoring full N_PERS
#'
#' @param npers N_PERS number
#'
#' @return A character string with 10 digit version N_PERS
#' @import stringr
#' @export
#'
#' @examples
#' restore_npers(39249861)


restore_npers <- function(npers) {

  if(anyNA(as.numeric(npers))) {
    warning("npers contains non-numeric characters")
  }

  npers <- str_pad(npers, side ="left", width = 10, pad = "0")
  return(npers)
}