Closes #110 took opportunity to add AELOC to ae_ophtha

Author: manciniedoardo

NEWS.md

@@ -6,6 +6,8 @@
 
 - `CMENRTPT` variable was added to the `cm` dataset. (#120)
 
+- `AELOC` variable was added to the `ae_ophtha` dataset. (#110)
+
 <details>
 <summary>Developer Notes</summary>
 

data-raw/ae_ophtha.R

@@ -15,7 +15,7 @@ ae_ophtha <- ae
 ## Create possible AELAT values - as collected on CRF ----
 lat <- c("LEFT", "RIGHT", "BOTH")
 
-## Create AELAT variable ----
+## Create AELAT, AELOC variable ----
 # Use random assignment of lat values where AESOC is "EYE DISORDERS"
 # Set seed so that result stays the same for each run
 set.seed(1)
@@ -26,7 +26,11 @@ ae_ophtha$AELAT <- if_else(ae_ophtha$AESOC == "EYE DISORDERS",
 )
 
 ae_ophtha <- ae_ophtha %>%
-  add_labels(AELAT = "Laterality")
+  mutate(AELOC = if_else(AESOC == "EYE DISORDERS", "EYE", NA_character_))
+
+ae_ophtha <- ae_ophtha %>%
+  add_labels(AELAT = "Laterality") %>%
+  add_labels(AELOC = "Location")
 
 # Label dataset ----
 attr(ae_ophtha, "label") <- "Adverse Events"