From b6ae203061d5a600d2ae1ae528c2201cf5c57ef1 Mon Sep 17 00:00:00 2001
From: Joshua Lambert <joshua.lambert@lshtm.ac.uk>
Date: Fri, 13 Sep 2024 18:29:11 +0100
Subject: [PATCH] clean prob_dist internally to resolve case sensitive
 matching, fixes #375

---
 R/epiparameter.R | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/R/epiparameter.R b/R/epiparameter.R
index 04a968e30..e89d7f927 100644
--- 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) &&