R/rename_line.R

In yikeshu0611/nhanesR: Tools for "NHANES" Database

rename_line <- function(x){
    if (is.data.frame(x)){
        colnames(x) <- rename_line(colnames(x))
    }else{
        x[x %in% c('drxiline','dr1iline','dr2iline')] <- 'line'
    }
    x
}
rename_rstz <- function(x){
    if (is.data.frame(x)){
        colnames(x) <- rename_rstz(colnames(x))
    }else{
        x[x %in% c('dr1drstz','dr2drstz','drddrsts','drddrstz')] <- 'rstz'
    }
    x
}
rename_fdcd <- function(x){
    if (is.data.frame(x)){
        colnames(x) <- rename_fdcd(colnames(x))
    }else{
        x[x %in% c('drdifdcd','dr1ifdcd','dr2ifdcd','drxfdcd')] <- 'fdcd'
    }
    x
}