Participant 1992 remains in "demographics_race" table

[jwe4ec]

Participant 1992 remains in "demographics_race" table because "system_date_time_earliest" in that table is NA. Thus, the exclusion in line 1396 of "4_clean_data.R" does not apply to that table. Check that 1992 is excluded from all relevant tables.

for (i in 1:length(dat)) {
  if ("system_date_time_earliest" %in% names(dat[[i]]) &
      "participant_id" %in% names(dat[[i]])) {
    dat[[i]] <- dat[[i]][!(dat[[i]][, "participant_id"] == 1992 &
                             (!is.na(dat[[i]][, "system_date_time_earliest"]) &
                             dat[[i]][, "system_date_time_earliest"] >= 
                               "2020-04-07 00:00 EDT")), ]
  } else {
    dat[[i]] <- dat[[i]]
  }
}