R/harmonize_all.R

In antrologos/harmonizePNAD: harmonized variables for the National Household Sample Survey (PNAD-IBGE, Brazil)

#' Builds a synthetic variable for education attainment
#' @param data.frame
#' @value data.frame
#' @export

harmonize_all <- function(Data){
        harmonization_functions <- harmonizePNAD:::list_available_harmonizations("harmonize")

        harmonization_functions = harmonization_functions[grep(x = harmonization_functions, pattern = "^harmonize")]

        for(harmonization_function in harmonization_functions){
                print(harmonization_function)
                call <- paste0(harmonization_function,"(Data)")
                Data <- eval(parse(text = call))
        }
        Data
}