View source: R/check_ae_aelat.R
check_ae_aelat | R Documentation |
This check looks if AESOC has Eye, and AELAT is missing.
check_ae_aelat(AE, preproc = identity, ...)
AE |
Adverse Event Dataset for Ophtho Study with variables USUBJID, AELAT, AESOC, AEDECOD, AETERM, AESTDTC (if present), AESPID (if present) |
preproc |
An optional company specific preprocessing script |
... |
Other arguments passed to methods |
boolean value if check failed or passed with 'msg' attribute if the test failed
Monarch Shah (HackR 2021 Team Eye)
Other OPHTH:
check_cm_cmlat_prior_ocular()
,
check_cm_cmlat()
,
check_oe_bcva_1m_late_early_tot()
,
check_oe_bcva_4m_late_early_tot()
,
check_oe_bcva_4m_vs_1m_req()
,
check_oe_bcva_tot_mismatch()
,
check_oe_sc_lat_count_fingers()
,
check_pr_prlat()
,
check_sc_dm_eligcrit()
,
check_sc_dm_seyeselc()
AE <- data.frame(
USUBJID = 1:5,
AESTDTC = 1:5,
AELOC = c("", "EYE", "eye", "", "EYE"),
AELAT = c("Left", "","left", "RIGHT", ""),
AETERM = c("A", "B", "A", "B", "A"),
AEDECOD = c("A", "B", "A", "B", "A"),
AESOC = c("Eye", "Eye","Eye Disorder","Eye Disorder", "Eye"),
AESPID = "FORMNAME-R:19/L:19XXXX",
stringsAsFactors = FALSE)
check_ae_aelat(AE)
check_ae_aelat(AE,preproc=roche_derive_rave_row)
AE <- data.frame(
USUBJID = 1:5,
AESTDTC = 1:5,
AELAT = c("Left", "","Bilateral", "", ""),
AETERM = c("A", "B", "A", "B", "A"),
AEDECOD = c("A", "B", "A", "B", "A"),
AESOC = c("Eye", "Eye","Eye Disorder","Eye Disorder", "Eye"),
stringsAsFactors = FALSE)
check_ae_aelat(AE)
check_ae_aelat(AE,preproc=roche_derive_rave_row)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.