Update auditCommonFunctions.R

koenderks · koenderks · commit 66dd64220f91 · 2024-11-15T11:10:04.000+01:00
diff --git a/R/auditCommonFunctions.R b/R/auditCommonFunctions.R
@@ -2810,7 +2810,7 @@
       "poisson" = gettext("The results are computed using the gamma distribution."),
       "hypergeometric" = gettext("The results are computed using the beta-binomial distribution.")
     )
-    if (options[["hurdle"]] && options[["method"]] == "binomial") {
+    if (!options[["workflow"]] && options[["hurdle"]] && options[["method"]] == "binomial") {
        message <- gettext("The results are computed using the hurdle beta model")
     }
   }

Original file line number	Diff line number	Diff line change
`@@ -2810,7 +2810,7 @@`
`2810`	`2810`	`"poisson" = gettext("The results are computed using the gamma distribution."),`
`2811`	`2811`	`"hypergeometric" = gettext("The results are computed using the beta-binomial distribution.")`
`2812`	`2812`	`)`
`2813`		`- if (options[["hurdle"]] && options[["method"]] == "binomial") {`
	`2813`	`+ if (!options[["workflow"]] && options[["hurdle"]] && options[["method"]] == "binomial") {`
`2814`	`2814`	`message <- gettext("The results are computed using the hurdle beta model")`
`2815`	`2815`	`}`
`2816`	`2816`	`}`