R/attach_fped.R

In yikeshu0611/nhanesR: Tools for "NHANES" Database

#' attach fped
#'
#' @param data data
#' @param years years
#' @param day day =1 or day = 2 or day = c(1,2)
#' @param dietary tot or iff
#' @param version 2015(default) or 2010
#' @param fun sum(default) or mean
#' @param f_citmlb (2010, 2015) logical
#' @param f_other (2010, 2015) logical
#' @param f_whole (2010, 2015) logical
#' @param f_juice (2010, 2015) logical
#' @param f_total (2010, 2015) logical
#' @param v_drkgr (2010, 2015) logical
#' @param v_redor_tomato (2010, 2015) logical
#' @param v_redor_other (2010, 2015) logical
#' @param v_redor_total (2010, 2015) logical
#' @param v_starchy_potato (2010, 2015) logical
#' @param v_starchy_other (2010, 2015) logical
#' @param v_starchy_total (2010, 2015) logical
#' @param v_other (2010, 2015) logical
#' @param v_total (2010, 2015) logical
#' @param v_legumes (2010, 2015) logical
#' @param g_whole (2010, 2015) logical
#' @param g_refined (2010, 2015) logical
#' @param g_total (2010, 2015) logical
#' @param d_milk (2010, 2015) logical
#' @param d_yogurt (2010, 2015) logical
#' @param d_cheese (2010, 2015) logical
#' @param d_total (2010, 2015) logical
#' @param pf_meat (2010, 2015) logical
#' @param pf_curedmeat (2010, 2015) logical
#' @param pf_organ (2010, 2015) logical
#' @param pf_poult (2010, 2015) logical
#' @param pf_seafd_hi (2010, 2015) logical
#' @param pf_seafd_low (2010, 2015) logical
#' @param pf_mps_total (2010, 2015) logical
#' @param pf_eggs (2010, 2015) logical
#' @param pf_soy (2010, 2015) logical
#' @param pf_nutsds (2010, 2015) logical
#' @param pf_legumes (2010, 2015) logical
#' @param pf_total (2010, 2015) logical
#' @param add_sugars (2010, 2015) logical
#' @param oils (2010, 2015) logical
#' @param solid_fats (2010, 2015) logical
#' @param a_drinks (2010, 2015) logical
#' @param seaplant (2010) logical
#' @param addsugc (2010) logical
#' @param solfatc (2010) logical
#' @param vtotalleg (2015) logical
#' @param vdrkgrleg (2015) logical
#' @param pfallprotleg (2015) logical
#' @param pfseaplantleg (2015) logical
#' @param Year logical
#'
#' @return fped
#' @export
#'
attach_fped <- function(data,years,
                        day=c('1','2'),
                        dietary=c('tot','iff'),
                        version=c('2015','2010'),
                        fun=c('sum','mean'),
                        f_citmlb=FALSE,
                        f_other=FALSE,
                        f_whole=FALSE,
                        f_juice=FALSE,
                        f_total=FALSE,
                        v_drkgr=FALSE,
                        v_redor_tomato=FALSE,
                        v_redor_other=FALSE,
                        v_redor_total=FALSE,
                        v_starchy_potato=FALSE,
                        v_starchy_other=FALSE,
                        v_starchy_total=FALSE,
                        v_other=FALSE,
                        v_total=FALSE,
                        v_legumes=FALSE,
                        g_whole=FALSE,
                        g_refined=FALSE,
                        g_total=FALSE,
                        d_milk=FALSE,
                        d_yogurt=FALSE,
                        d_cheese=FALSE,
                        d_total=FALSE,
                        pf_meat=FALSE,
                        pf_curedmeat=FALSE,
                        pf_organ=FALSE,
                        pf_poult=FALSE,
                        pf_seafd_hi=FALSE,
                        pf_seafd_low=FALSE,
                        pf_mps_total=FALSE,
                        pf_eggs=FALSE,
                        pf_soy=FALSE,
                        pf_nutsds=FALSE,
                        pf_legumes=FALSE,
                        pf_total=FALSE,
                        add_sugars=FALSE,
                        oils=FALSE,
                        solid_fats=FALSE,
                        a_drinks=FALSE,
                        seaplant=FALSE,
                        addsugc=FALSE,
                        solfatc=FALSE,
                        vtotalleg=FALSE,
                        vdrkgrleg=FALSE,
                        pfallprotleg=FALSE,
                        pfseaplantleg=FALSE,
                        Year=FALSE

){
    var <- c()
    if (f_citmlb) var <- c(var,'f_citmlb')
    if (f_other) var <- c(var,'f_other')
    if (f_whole) var <- c(var,'f_whole')
    if (f_juice) var <- c(var,'f_juice')
    if (f_total) var <- c(var,'f_total')
    if (v_drkgr) var <- c(var,'v_drkgr')
    if (v_redor_tomato) var <- c(var,'v_redor_tomato')
    if (v_redor_other) var <- c(var,'v_redor_other')
    if (v_redor_total) var <- c(var,'v_redor_total')
    if (v_starchy_potato) var <- c(var,'v_starchy_potato')
    if (v_starchy_other) var <- c(var,'v_starchy_other')
    if (v_starchy_total) var <- c(var,'v_starchy_total')
    if (v_other) var <- c(var,'v_other')
    if (v_total) var <- c(var,'v_total')
    if (v_legumes) var <- c(var,'v_legumes')
    if (g_whole) var <- c(var,'g_whole')
    if (g_refined) var <- c(var,'g_refined')
    if (g_total) var <- c(var,'g_total')
    if (d_milk) var <- c(var,'d_milk')
    if (d_yogurt) var <- c(var,'d_yogurt')
    if (d_cheese) var <- c(var,'d_cheese')
    if (d_total) var <- c(var,'d_total')
    if (pf_meat) var <- c(var,'pf_meat')
    if (pf_curedmeat) var <- c(var,'pf_curedmeat')
    if (pf_organ) var <- c(var,'pf_organ')
    if (pf_poult) var <- c(var,'pf_poult')
    if (pf_seafd_hi) var <- c(var,'pf_seafd_hi')
    if (pf_seafd_low) var <- c(var,'pf_seafd_low')
    if (pf_mps_total) var <- c(var,'pf_mps_total')
    if (pf_eggs) var <- c(var,'pf_eggs')
    if (pf_soy) var <- c(var,'pf_soy')
    if (pf_nutsds) var <- c(var,'pf_nutsds')
    if (pf_legumes) var <- c(var,'pf_legumes')
    if (pf_total) var <- c(var,'pf_total')
    if (add_sugars) var <- c(var,'add_sugars')
    if (oils) var <- c(var,'oils')
    if (solid_fats) var <- c(var,'solid_fats')
    if (a_drinks) var <- c(var,'a_drinks')
    if (seaplant) var <- c(var,'seaplant')
    if (addsugc) var <- c(var,'addsugc')
    if (solfatc) var <- c(var,'solfatc')
    if (vtotalleg) var <- c(var,'vtotalleg')
    if (vdrkgrleg) var <- c(var,'vdrkgrleg')
    if (pfallprotleg) var <- c(var,'pfallprotleg')
    if (pfseaplantleg) var <- c(var,'pfseaplantleg')
    if (is.null(var)) return()
    years <- data_years(data,years)

    day <- as.character(day)
    dietary <- match.arg(dietary)
    version <- as.character(version)
    version <- match.arg(version)
    if (dietary=='iff') join <- c('seqn','line') else join <- 'seqn'
    d <- fped_read(years,day,dietary,version,fun,FALSE)
    d <- d[,c(join,var),drop=FALSE]
    if (!Year) d <- drop_col(d,'Year')
    if (!missing(data)) d <- dplyr::left_join(data,d,'seqn')
    return(d)
}