R/pad_chi.R

In graemegowans/chi: CHI Functions

#' Pad CHI
#'
#' Pad a 9 digit CHI number to 10 digits
#'
#' @param to_pad Vector of CHI numbers
#' @return character
#' @export
#' @examples pad_chi(c("123456789","1234567890"))
pad_chi <- function(to_pad){
  ifelse(nchar(to_pad) == 9,
         paste0("0", to_pad),
         paste0(to_pad))
}