Helper Function to Prepare ADLB with Worst Labs
Source: R/abnormal_by_worst_grade_worsen.R
h_adlb_worsen.RdArguments
- adlb
(
data.frame)ADLBdataframe- worst_flag_low
(named
vector)
Worst low post-baseline lab grade flag variable- worst_flag_high
(named
vector)
Worst high post-baseline lab grade flag variable- direction_var
-
(
string)
Direction variable specifying the direction of the shift table of interest. Only lab records flagged byL,HorBare included in the shift table.L: low direction onlyH: high direction onlyB: both low and high directions
Value
h_adlb_worsen() returns the adlb
data.frame containing only the
worst labs specified according to worst_flag_low or worst_flag_high for the
direction specified according to direction_var. For instance, for a lab that is
needed for the low direction only, only records flagged by worst_flag_low are
selected. For a lab that is needed for both low and high directions, the worst
low records are selected for the low direction, and the worst high record are selected
for the high direction.
Examples
library(dplyr)
# The direction variable, GRADDR, is based on metadata
adlb <- tern_ex_adlb %>%
mutate(
GRADDR = case_when(
PARAMCD == "ALT" ~ "B",
PARAMCD == "CRP" ~ "L",
PARAMCD == "IGA" ~ "H"
)
) %>%
filter(SAFFL == "Y" & ONTRTFL == "Y" & GRADDR != "")
df <- h_adlb_worsen(
adlb,
worst_flag_low = c("WGRLOFL" = "Y"),
worst_flag_high = c("WGRHIFL" = "Y"),
direction_var = "GRADDR"
)