Calculate age — calc_age • mRclwhip

This function is just a convenient wrapper to calculate age using lubridate.

calc_age(dob, ref_date = Sys.Date())

Arguments

dob	Starting date or datetime (usually date of birth).
ref_date	Ending date or datetime

Examples

calc_age(dob = as.Date("1974-03-14"))
#> [1] 46.90212

birth_days <- sample(seq(as.Date("1999/01/01"), as.Date("2000/01/01"), by = "day"), 5)
follow_ups <- data.frame(dob = birth_days, last_checkup = Sys.Date())

follow_ups %>%
  dplyr::mutate(age_last_fu = calc_age(dob, last_checkup))
#>          dob last_checkup age_last_fu
#> 1 1999-06-22   2021-02-06    21.62902
#> 2 1999-03-04   2021-02-06    21.93018
#> 3 1999-12-24   2021-02-06    21.12252
#> 4 1999-02-16   2021-02-06    21.97399
#> 5 1999-07-20   2021-02-06    21.55236