3.6 Self-reported operations

Obatin relevant fields.

selfrep_op_codes <- demog %>%
  select(c(f.eid, starts_with("f.20004."))) %>%
  arrange(f.eid) %>% 
  data.frame()

selfrep_op_dates <- demog %>%
  select(c(f.eid, starts_with("f.20010."))) %>%
  data.frame() %>%
  mutate_all(funs(replace(., .<1900, NA))) %>%
  mutate_at(vars(starts_with("f.20010.")), .funs = list(~ lubridate::date_decimal(.))) %>%
  mutate_at(vars(starts_with("f.20010.")), .funs = list(~ as.Date(.))) %>%
  arrange(f.eid) 

selfrep_op_codes_long <- merge_long("f.20004","f.20010",selfrep_op_codes,selfrep_op_dates,"selfrep_op") %>% 
  distinct() %>% filter(!is.na(code))