md1 <-
tibble::tribble(
~oak_id, ~raw_source, ~patient_number, ~MDRAW,
1L, "MD1", 101L, "BABY ASPIRIN",
2L, "MD1", 102L, "CORTISPORIN",
3L, "MD1", 103L, NA_character_,
4L, "MD1", 104L, "DIPHENHYDRAMINE HCL"
)
# Derive a new variable `CMCAT` by overwriting `MDRAW` with the
# hardcoded value "GENERAL CONCOMITANT MEDICATIONS".
hardcode_no_ct(
tgt_val = "GENERAL CONCOMITANT MEDICATIONS",
raw_dat = md1,
raw_var = "MDRAW",
tgt_var = "CMCAT"
)
cm_inter <-
tibble::tribble(
~oak_id, ~raw_source, ~patient_number, ~CMTRT, ~CMINDC,
1L, "MD1", 101L, "BABY ASPIRIN", NA,
2L, "MD1", 102L, "CORTISPORIN", "NAUSEA",
3L, "MD1", 103L, "ASPIRIN", "ANEMIA",
4L, "MD1", 104L, "DIPHENHYDRAMINE HCL", "NAUSEA",
5L, "MD1", 105L, "PARACETAMOL", "PYREXIA"
)
# Derive a new variable `CMCAT` by overwriting `MDRAW` with the
# hardcoded value "GENERAL CONCOMITANT MEDICATIONS" with a prior join to
# `target_dataset`.
hardcode_no_ct(
tgt_dat = cm_inter,
tgt_val = "GENERAL CONCOMITANT MEDICATIONS",
raw_dat = md1,
raw_var = "MDRAW",
tgt_var = "CMCAT"
)
# Controlled terminology specification
(ct_spec <- read_ct_spec_example("ct-01-cm"))
# Hardcoding of `CMCAT` with the value `"GENERAL CONCOMITANT MEDICATIONS"`
# involving terminology recoding. `NA` values in `MDRAW` are preserved in
# `CMCAT`.
hardcode_ct(
tgt_dat = cm_inter,
tgt_var = "CMCAT",
raw_dat = md1,
raw_var = "MDRAW",
tgt_val = "GENERAL CONCOMITANT MEDICATIONS",
ct_spec = ct_spec,
ct_clst = "C66729"
)
Run the code above in your browser using DataLab