R/parse_redcap_records.R

In jesse-smith/covidCFR: What the Package Does (One Line, Title Case)

parse_redcap_records <- function(.data) {
  .data %>%
    dplyr::select(
      first_name = "firstname",
      last_name = "lastname",
      dob = "dob",
      type_case = "type_case",
      already_surveyed = "multi_ltcf_2",
      last_work = "last_work",
      collection_date = "specimendate"
    ) %>%
    dplyr::mutate(
      first_name = std_names(.data[["first_name"]]),
      last_name = std_names(.data[["last_name"]]),
      dob = std_dates(.data[["dob"]]),
      type_case = .data[["type_case"]],
      last_work = std_dates(.data[["last_work"]])
      # Do we need to filter by case_interview_complete?
    )
}