R/pad_chi.R

Defines functions pad_chi

Documented in pad_chi

#' 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))
}
graemegowans/chi documentation built on Feb. 1, 2020, 12:53 a.m.