add isTRUE to is_continuous to fix for unparameterised <epiparameter>

epiverse-trace · Oct 10, 2024 · 54b7bf1 · 54b7bf1
1 parent 42fbb22
commit 54b7bf1
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/epiparameter.R b/R/epiparameter.R
@@ -889,7 +889,8 @@ is_continuous <- function(x) {
       is_epiparameter(x)
   )
   # get individual distributions out of mixture to check if continuous
-  if (family(x) == "mixture") {
+  # isTRUE to control for family returning NA for unparameterised
+  if (isTRUE(family(x) == "mixture")) {
     fam <- .get_mixture_family(x)
   } else {
     fam <- family(x)