Update auditCommonFunctions.R

koenderks · koenderks · commit 719141143c0a · 2024-11-10T11:23:30.000+01:00
diff --git a/R/auditCommonFunctions.R b/R/auditCommonFunctions.R
@@ -2805,7 +2805,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
`@@ -2805,7 +2805,7 @@`
`2805`	`2805`	`"poisson" = gettext("The results are computed using the gamma distribution."),`
`2806`	`2806`	`"hypergeometric" = gettext("The results are computed using the beta-binomial distribution.")`
`2807`	`2807`	`)`
`2808`		`- if (options[["hurdle"]] && options[["method"]] == "binomial") {`
	`2808`	`+ if (!options[["workflow"]] && options[["hurdle"]] && options[["method"]] == "binomial") {`
`2809`	`2809`	`message <- gettext("The results are computed using the hurdle beta model")`
`2810`	`2810`	`}`
`2811`	`2811`	`}`