R/label2varLabel.R

In yikeshu0611/nhanesR: Tools for "NHANES" Database

label2varLabel <- function(){
    label <- nhs_files_pc(file_ext = 'label')
    if (length(label)>0){
        varLabel <- do::Replace(label,'\\.label','.varLabel')
        ck <- file.rename(label,varLabel)
    }
}