R/parse_nbs_records.R

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

parse_nbs_records <- function(.data) {
  .data %>%
    dplyr::select(
      first_name = "patient_first_name",
      last_name = "patient_last_name",
      dob = "patient_dob",
      id = "inv_local_id",
      collection_date = "specimen_coll_dt"
    ) %>%
    dplyr::mutate(
      first_name = std_names(.data[["first_name"]]),
      last_name = std_names(.data[["last_name"]]),
      dob = std_dates(.data[["dob"]]),
      collection_date = std_dates(.data[["dob"]])
    )
}