R/build_work_employRecordBook_pnad.R

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

build_work_employRecordBook_pnad <- function(Data){

        just_created_vars_list_existedBefore <- exists(x = "just_created_vars", where = .GlobalEnv)

        # Loading the crosswalk
        file_location <- system.file("extdata",
                                     "crosswalk_pnad_employRecordBook.csv",
                                     package = "harmonizePNAD")
        crosswalk   <- data.table::fread(file_location)

        # Selecting the appropriate crosswalk for the current year
        metadata    <- harmonizePNAD:::get_metadata(Data)
        crosswalk_i <- crosswalk[year == metadata$year]

        # Checking the variable availability
        harmonizePNAD:::check_necessary_vars(Data, crosswalk_i$var_employRecordBook)

        # Recoding
        Data[ , employRecordBook := as.numeric(NA)]

        expr_yes <- with(crosswalk_i, paste(var_employRecordBook,"%in% c(",employRecordBook_yes, ")"))
        expr_no  <- with(crosswalk_i, paste(var_employRecordBook,"%in% c(",employRecordBook_no, ")"))
        expr_publicServant_Military  <- with(crosswalk_i, paste(var_employRecordBook,"%in% c(",publicServant_Military, ")"))

        Data[eval(parse(text = expr_yes)), employRecordBook := 1]
        Data[eval(parse(text = expr_no)),  employRecordBook := 0]
        Data[eval(parse(text = expr_publicServant_Military)),  employRecordBook := 2]


        Data <- harmonizePNAD:::check_and_build_onTheFly(Data,
                                                         var_name = "occupationalStatus",
                                                         general_or_specific = "general")

        Data <- harmonizePNAD:::check_and_build_onTheFly(Data,
                                                         var_name = "econActivity",
                                                         general_or_specific = "general")

        Data[is.na(occupationalStatus) | occupationalStatus == 0, employRecordBook := NA]
        Data[is.na(econActivity)       | econActivity == 0      , employRecordBook := NA]

        if(just_created_vars_list_existedBefore == F){
                Data <- harmonizePNAD:::erase_just_created_vars(Data)
        }


        gc()

        Data
}