add manual early error feedback to check for arm_default_vals being of type character

Author: iglauss

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: dv.edish
 Type: Package
 Title: eDISH Plot Module for DILI assessment
-Version: 1.2.0-9001
+Version: 1.2.0-9002
 Authors@R: 
     c(
       person("Boehringer-Ingelheim Pharma GmbH & Co.KG", role = c("cph", "fnd")),

NEWS.md

@@ -1,6 +1,7 @@
-# dv.edish 1.2.0-9001
+# dv.edish 1.2.0-9002
 
 - Add jumping feature.
+- Arm default values can be arbitrarily specified as long as they are character strings. This supports including multiple studies with different arm values.
 
 # dv.edish 1.2.0
 

R/mod_edish.R

@@ -492,6 +492,17 @@ check_mod_edish <- function(
     lb_result_var, ref_range_upper_lim_var, receiver_id,
     warn, err
   )
+  
+  # Check only if `arm_default_vals` is a character vector
+  # Reason: Arbitrary values allowed in case multiple studies are included with different arm values
+  CM$assert(
+    container = err,
+    cond = is.character(arm_default_vals),
+    msg = sprintf(
+      'The values assigned to `arm_default_vals` are of type %s, but should be of type character.',
+      typeof(arm_default_vals)
+    )
+  )
 
   # NOTE: Prevents dplyr from exploding inside `prepare_initial_data`
   var_parameters <- c("subjectid_var", "arm_var", "visit_var", "lb_test_var", "lb_result_var")