grade should be numeric in ae_table_soc

fixes #35
Oncostat · Nov 22, 2024 · 6add9d3 · 6add9d3
1 parent 8d38f94
commit 6add9d3
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/ae_table_soc.R b/R/ae_table_soc.R
@@ -91,6 +91,9 @@ ae_table_soc = function(
   df_enrol = df_enrol %>%
     select(subjid_=any_of2(subjid), arm_=any_of2(arm)) %>%
     mutate(arm_ = if(is.null(.env$arm)) default_arm else .data$arm_)
+  if(!is.numeric(df_ae$grade)){
+    cli_abort("Grade ({.val {grade}}) should be a numeric column.")
+  }
 
   df = df_enrol %>%
     left_join(df_ae, by="subjid_") %>%