R/build_income_earningsMainJob.R

#' Builds a synthetic variable for education attainment
#' @param data.frame
#' @value data.frame
#' @export
build_income_earningsMainJob <- function(Data, deflate_values = T){

        Data <- harmonizePNAD:::check_prepared_to_harmonize(Data)

        metadata = harmonizePNAD:::get_metadata(Data)

        sulfix <- harmonizePNAD:::find_sulfix(Data, general_or_specific = "general")
        call   <- paste0("harmonizePNAD:::build_income_earningsMainJob_", sulfix, "(Data)")
        Data   <- eval(parse(text = call))

        if(deflate_values == T){
                # Loading the crosswalk
                file_location <- system.file("extdata",
                                             "crosswalk_pnad_earningsMainJob.csv",
                                             package = "harmonizePNAD")
                crosswalk <- data.table::fread(file_location, colClasses = "numeric", dec = ",")
                crosswalk <- crosswalk[year == metadata$year]

                Data[ , earningsMainJob :=  earningsMainJob*crosswalk$deflator]
        }

        gc()
        Data
}
antrologos/harmonizePNAD documentation built on May 15, 2019, 10:48 a.m.