#' Calculate age in years
#'
#' @param birth date of birth
#' @param date date used to calculate the age
#' @export
age <- function(birth, date){
birth <- as.Date(birth)
date <- as.Date(date)
res <- as.integer(date - birth)/365.25
if (any(res < 0, na.rm = TRUE))
warning('Some ages are < 0.')
res
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.