checks for missing soc and ae in complete_ae_data (#212)

* add more errors and message along with corresponding tests

* tweaks from DS suggestions

* bump gt version

* update roxygen version

* update snapshot texts for style_xxx

* Increment version number to 0.3.0

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: gtreg
 Title: Regulatory Tables for Clinical Research
-Version: 0.2.0.9001
+Version: 0.3.0
 Authors@R: c(
     person("Shannon", "Pileggi", , "[email protected]", role = c("aut", "cre", "cph"),
            comment = c(ORCID = "0000-0002-7732-4164")),
@@ -32,7 +32,7 @@ Imports:
     tidyr (>= 1.2.1)
 Suggests: 
     covr (>= 3.6.1),
-    gt (>= 0.9.0),
+    gt (>= 0.10.0),
     knitr (>= 1.43),
     rmarkdown (>= 2.22),
     spelling (>= 2.2.1),
@@ -44,4 +44,4 @@ Encoding: UTF-8
 Language: en-US
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.1
+RoxygenNote: 7.2.3

NEWS.md

@@ -1,5 +1,6 @@
-# gtreg (development version)
+# gtreg 0.3.0
 
+* Add errors for missing `soc` and `ae` in `complete_ae_data()` (#204).
 
 * Fix GitHub link on `pkgdown` site (#207).
 

R/complete_ae_data.R

@@ -92,11 +92,24 @@
                             by = c(id, strata))) > 0) {
     stop("There are `id=`/`strata=` combinations in `data=` not found in `id_df=`.", call. = FALSE)
   }
+
+  # check for missing soc
+  if (!is.null(soc) && any(is.na(data[soc]))) {
+    stop("At least one `soc` is missing.", call. = FALSE)
+  }
+
+  # check for missing ae
+  if (!is.null(ae) && any(is.na(data[ae]))) {
+    stop("At least one `ae` is missing.", call. = FALSE)
+  }
+
+  # check for an ae listed under more than one soc
   if (!is.null(soc) &&
       nrow(dplyr::distinct(data[c(ae, soc)])) != nrow(dplyr::distinct(data[ae]))) {
     stop("The `ae` levels must be unique across all `soc` levels.", call. = FALSE)
   }
 
+
   # some default factor levels -------------------------------------------------
   initial_missing <- missing_text
   initial_dummy   <- "NOT OBSERVED"