Handling Missing Data in Cleaning Workflows

r

required_missing <- enrollment_data |>
  summarise(
    missing_participant_id = sum(is.na(participant_id)),
    missing_site = sum(is.na(site)),
    missing_consent_date = sum(is.na(consent_date)),
    missing_enrollment_date = sum(is.na(enrollment_date)),
    missing_primary_outcome = sum(is.na(primary_outcome))
  )

required_missing