hotfix: correctly identify constrained dists

epiforecasts · Aug 7, 2024 · 03fc897 · 03fc897
1 parent a3a06df
commit 03fc897
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/dist_spec.R b/R/dist_spec.R
@@ -791,6 +791,9 @@ is_constrained <- function(x, ...) {
 #' # both distributions are constrained and therefore so is the sum
 #' is_constrained(dist1 + dist2)
 is_constrained.dist_spec <- function(x, ...) {
+  if (get_distribution(x) %in% c("nonparametric", "fixed")) {
+    return(TRUE)
+  }
   tolerance <- attr(x, "tolerance")
   tol_constrained <- !is.null(tolerance) && tolerance > 0
   max <- attr(x, "max")