Fix check for NA in multi.distspec (#859)

epiforecasts · Nov 20, 2024 · e9cb977 · e9cb977
1 parent 64d17ee
commit e9cb977
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/NEWS.md b/NEWS.md
@@ -3,6 +3,7 @@
 ## Model changes
 
 - A bug was fixed where the initial growth was never estimated (i.e. the prior mean was always zero). By @sbfnk in #853 and reviewed by @seabbs.
+- A bug was fixed where an internal function for applying a default cdf cutoff failed due to a difference a vector length issue. By @jamesmbaazam in #858 and reviewed by @sbfnk.
 
 # EpiNow2 1.6.1
 

diff --git a/R/opts.R b/R/opts.R
@@ -1091,7 +1091,7 @@ filter_opts <- function(opts, region) {
 #'   constrained
 #' @keywords internal
 apply_default_cdf_cutoff <- function(dist, default_cdf_cutoff, cdf_cutoff_set) {
-  if (!is_constrained(dist) && !is.na(sd(dist))) {
+  if (!is_constrained(dist) && !anyNA(sd(dist))) {
     #nolint start: duplicate_argument_linter
     cli_inform(
       c(