Improve check for max in dist_spec

epiforecasts · Dec 12, 2024 · 4df29b6 · 4df29b6
1 parent 88584d6
commit 4df29b6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/dist_spec.R b/R/dist_spec.R
@@ -718,7 +718,7 @@ plot.dist_spec <- function(x, samples = 50L, res = 1, cumulative = TRUE, ...) {
         cdf_cutoff <- 0
       }
       pmf_dt <- lapply(dists, function(y) {
-        if (is.infinite(attr(y, "max"))) {
+        if (is.infinite(max(y))) {
           cli_abort(
             c(
               "!" = "All distributions in {.var x} must have a finite