#' Builds a synthetic variable for education attainment
#' @param data.frame
#' @value data.frame
#' @export
build_demographics_race1980standard <- function(Data){
Data <- harmonizePNAD:::check_prepared_to_harmonize(Data)
metadata = harmonizePNAD:::get_metadata(Data)
if((metadata$type == "pnad" & metadata$year <= 1986) |
(metadata$type == "census" & metadata$year == 1970)){
warning(paste("It is not possible to produce 'race1980standard' for",
metadata$type,
metadata$year))
return(Data)
}
sulfix <- harmonizePNAD:::find_sulfix(Data, general_or_specific = "general")
call <- paste0("harmonizePNAD:::build_demographics_race1980standard_", sulfix, "(Data)")
Data <- eval(parse(text = call))
gc(); Sys.sleep(.3); gc()
Data
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.