3.5 Self-reported conditions

Obatin relevant fields.

selfrep_codes <- demog %>%
  select(c(f.eid, starts_with("f.20002."))) %>%
  arrange(f.eid) %>% 
  data.frame() # can't be data.table

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

selfrep_codes_long <- merge_long("f.20002","f.20008",selfrep_codes,selfrep_dates,"selfrep") %>% 
  distinct() %>% filter(!is.na(code))