From 54b7bf17cb5ce042801e5e3aeed8e8de7a11d5d3 Mon Sep 17 00:00:00 2001 From: Joshua Lambert Date: Thu, 10 Oct 2024 15:07:25 +0100 Subject: [PATCH] add isTRUE to is_continuous to fix for unparameterised --- R/epiparameter.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/R/epiparameter.R b/R/epiparameter.R index e40b8e6c7..4ba228a6a 100644 --- 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)