R/build_migration_bornSameStateMCA_1970.R

In antrologos/harmonizeIBGE: harmonizeIBGE - harmonized variables for Brazilian Censuses (1960-2010)

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

build_migration_bornSameStateMCA_1970 <- function(CensusData){
        
        if(!is.data.frame(CensusData)){
                stop("'CensusData' is not a data.frame")
        }
        
        if(!is.data.table(CensusData)){
                CensusData = as.data.table(CensusData)
        }
        
        stateMinimumComparable_just_created <- F
        check_vars <- harmonizeIBGE:::check_var_existence(CensusData, c("stateMinimumComparable"))
        if(length(check_vars) > 0){
                CensusData <- build_geography_stateMinimumComparable_1970(CensusData)
                stateMinimumComparable_just_created <- T
                gc()
        }
        
        stateOfBirthMCA_just_created <- F
        check_vars <- harmonizeIBGE:::check_var_existence(CensusData, c("stateOfBirthMCA"))
        if(length(check_vars) > 0){
                CensusData <- build_migration_stateOfBirthMCA_1970(CensusData)
                stateOfBirthMCA_just_created <- T
                gc()
        }
        
        CensusData[ , bornSameStateMCA := as.numeric(stateMinimumComparable == stateOfBirthMCA)]
        
        # Unknown state will be NA
        CensusData[stateOfBirthMCA == 99, bornSameStateMCA := NA]
        
        # Foreigns will be zero
        CensusData[stateOfBirthMCA == 999, bornSameStateMCA := 0]
        
        gc()
        
        if(stateMinimumComparable_just_created == T){
                CensusData[, stateCurrent := NULL]
        }
        
        gc() 
        
        if(stateOfBirthMCA_just_created == T){
                CensusData[, stateOfBirthMCA := NULL]
        }
        
        
        gc()
        CensusData
}