R/normalize_phecodes.R

In nstrayer/phewasHelper: Helpers For Working With PheWas And PheCode Data

#' Normalize a phecode vector to padded character
#'
#' Depending on if a phecode was ever converted to a number or not it can show
#' up in a million different formats. This standardizes everything to a 6 digits
#' number.
#'
#'
#' @param codes A vector of phecodes in whatever format your heart desires. E.g.
#'   `8.00`, `8`, `0008.0`, ...
#'
#' @return A vector of 0-padded phecodes.
#' @export
#'
#' @examples
#' normalize_phecodes(c(8, 8.1, 9.2, 23.4))
normalize_phecodes <- function(codes){

  sprintf("%06.2f", as.numeric(codes))

}