ddi_file <- ipums_example("cps_00157.xml")
# Load metadata into `ipums_ddi` object
ddi <- read_ipums_ddi(ddi_file)
# Load data
cps <- read_ipums_micro(ddi)
# Data includes variable metadata:
ipums_var_desc(cps$INCTOT)
# Some operations remove attributes, even if they do not alter the data:
cps$INCTOT <- ifelse(TRUE, cps$INCTOT, NA)
ipums_var_desc(cps$INCTOT)
# We can reattach metadata from the separate `ipums_ddi` object:
cps <- set_ipums_var_attributes(cps, ddi)
ipums_var_desc(cps$INCTOT)
Run the code above in your browser using DataLab