diff --git a/data-raw/ae_ophtha.R b/data-raw/ae_ophtha.R index 5f33f7f..c7ddd90 100644 --- a/data-raw/ae_ophtha.R +++ b/data-raw/ae_ophtha.R @@ -17,8 +17,8 @@ lat <- c("LEFT", "RIGHT", "BOTH") set.seed(1) ae_ophtha$AELAT <- if_else(ae_ophtha$AESOC == "EYE DISORDERS", - apply(ae_ophtha, 1, function(x) sample(lat, 1)), - NA_character_ + apply(ae_ophtha, 1, function(x) sample(lat, 1)), + NA_character_ ) ae_ophtha <- ae_ophtha %>% @@ -28,5 +28,3 @@ attr(ae_ophtha, "label") <- "Adverse Events" # Save dataset ---- save(ae_ophtha, file = "data/ae_ophtha.rda", compress = "bzip2") - - diff --git a/inst/WORDLIST b/inst/WORDLIST index a136f89..9f6a527 100644 --- a/inst/WORDLIST +++ b/inst/WORDLIST @@ -1,6 +1,7 @@ ADEG ADaM AE +AELAT Arancibia CDISC Changelog @@ -34,6 +35,7 @@ SV TAs USUBJIDs VFQ +ae admiraldata admiraltemplate admiralxxx