Add error messages to switch alternatives

epiverse-trace · Feb 6, 2024 · ed3b5bd · ed3b5bd
1 parent d3e8d85
commit ed3b5bd
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/helpers.R b/R/helpers.R
@@ -10,7 +10,8 @@
     switch(
       stat_type,
       size = stat_latest + n_offspring,
-      length = stat_latest + pmin(1, n_offspring)
+      length = stat_latest + pmin(1, n_offspring),
+      stop("stat_type must be 'size' or 'length'")
     )
   )
 }
@@ -26,7 +27,8 @@
     switch(
       chain_statistic,
       size = rbinom_size,
-      length = rgen_length
+      length = rgen_length,
+      stop("chain_statistic must be 'size' or 'length'")
     )
   )
 }