R/utils.R

In HCUPtools: Access and Work with HCUP Resources and Datasets

#' Format ICD codes (preserve leading zeros)
#'
#' @param codes Character or numeric vector of ICD codes
#' @return Character vector of formatted ICD codes
#'
#' @noRd
format_icd_codes <- function(codes) {
  codes <- strip_surrounding_quotes(codes)
  return(trimws(as.character(codes)))
}