R/attach_mort.R

In yikeshu0611/nhanesR: Tools for "NHANES" Database

#' Add mortality data
#'
#' @param data data
#' @param years years
#' @param varLabel logical, default is TRUE
#' @param codebook logical, default is TRUE
#'
#' @return data with mortality data
#' @export
#'
attach_mort <- \(data,years,varLabel = TRUE,codebook = TRUE){
    if (!missing(data)) years <- unique(data$Year)
    years <- prepare_years(years)
    mort <- lapply(years,function(i) mort_read(years = i,varLabel = varLabel,codebook = codebook)) |>
        do.call(what = plyr::rbind.fill)
    if (!missing(data)) mort <- dplyr::left_join(data,mort,'seqn')
    return(mort)
}