update early error feedback for arm_default_vals

iglauss · iglauss · commit 5f66d7e17d26 · 2025-10-09T13:32:03.000+01:00
diff --git a/R/mod_edish.R b/R/mod_edish.R
@@ -497,9 +497,9 @@ check_mod_edish <- function(
   # Reason: Arbitrary values allowed in case multiple studies are included with different arm values
   CM$assert(
     container = err,
-    cond = is.character(arm_default_vals),
+    cond = is.character(arm_default_vals) | is.null(arm_default_vals),
     msg = sprintf(
-      'The values assigned to `arm_default_vals` are of type %s, but should be of type character.',
+      "The values assigned to `arm_default_vals` are of type %s, but should be of type character.",
       typeof(arm_default_vals)
     )
   )

Original file line number	Diff line number	Diff line change
`@@ -497,9 +497,9 @@ check_mod_edish <- function(`
`497`	`497`	`# Reason: Arbitrary values allowed in case multiple studies are included with different arm values`
`498`	`498`	`CM$assert(`
`499`	`499`	`container = err,`
`500`		`- cond = is.character(arm_default_vals),`
	`500`	`+ cond = is.character(arm_default_vals) \| is.null(arm_default_vals),`
`501`	`501`	`msg = sprintf(`
`502`		- 'The values assigned to `arm_default_vals` are of type %s, but should be of type character.',
	`502`	+ "The values assigned to `arm_default_vals` are of type %s, but should be of type character.",
`503`	`503`	`typeof(arm_default_vals)`
`504`	`504`	`)`
`505`	`505`	`)`