#5 chore: spelling and code style

pharmaverse · Jul 26, 2023 · 0a608bb · 0a608bb
1 parent edad45d
commit 0a608bb
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git 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
@@ -1,6 +1,7 @@
 ADEG
 ADaM
 AE
+AELAT
 Arancibia
 CDISC
 Changelog
@@ -34,6 +35,7 @@ SV
 TAs
 USUBJIDs
 VFQ
+ae
 admiraldata
 admiraltemplate
 admiralxxx