clean prob_dist internally to resolve case sensitive matching, fixes #…

…375
epiverse-trace · Sep 13, 2024 · b6ae203 · b6ae203
1 parent 1dd58f5
commit b6ae203
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/R/epiparameter.R b/R/epiparameter.R
@@ -44,6 +44,13 @@ new_epiparameter <- function(disease = character(),
       identical(names(prob_dist_params), names(uncertainty))
   )
 
+  # set string to lowercase for downstream case sensitive matching of prob_dist
+  prob_dist <- ifelse(
+    test = is.character(prob_dist),
+    yes = .clean_string(prob_dist),
+    no = prob_dist
+  )
+
   # TODO: formalise if statement below or remove
   # include mean in prob_dist_params
   if (!is.null(summary_stats$mean) && !is.na(summary_stats$mean) &&