add STUDYID as required column

Author: RhysPeploe

R/create_clinical_hist_table.R

@@ -39,6 +39,8 @@ create_clinical_hist_table <- function(dm_domain, sa_domain,
                                          "SAHR", "SADY", "SASTDY", "VISITDY", "VISITNUM",
                                          "VISIT", "EPOCH", "SAEVLINT", "SAEVINTX"),
                                        values_funct = first){
+  assert_data_frame(sa_domain, required_vars = exprs(SACAT))
+
   data_dm <- prepare_domain("dm", dm_domain, variables_include = c("STUDYID", "USUBJID"))
 
   data_sa <- sa_domain %>%

R/table_variables.R

@@ -59,6 +59,8 @@ table_variables <- function(domain, data, by_STUDYID = FALSE) {
       warn(str_c(domain, " domain not included in table_variables() function."))
     }
   } else {
+    assert_data_frame(data, required_vars = exprs(STUDYID))
+
     if (domain == "DM") {
       return(colnames(data))
     } else if (domain == "LB") {