R/reach_age.R

In guiboucher/INESSS-inesss: INESSS

#' Age
#'
#' Indique la date à laquelle l'âge d'un individu est atteint.
#'
#' @param x Vecteur contenant les dates de naissance.
#' @param ref_age Age de référence.
#'
#' @importFrom lubridate is.Date as_date %m+%
#' @export
reach_age <- function(
  x,  # vecteur indiquant la date de naissance
  ref_age  # age de référence
){

  if(!is.Date(x)) x <- as_date(x)
  return(x %m+% months(ref_age*12))

}