From 344dd88b93d08f0c2a6bf66c7d34e0611b8e21ff Mon Sep 17 00:00:00 2001 From: Daniel Date: Thu, 27 Jun 2024 09:43:58 +0200 Subject: [PATCH] Change how unspecified `...` arguments are passed to other functions Fixes #442 --- R/report_htest_chi2.R | 2 +- R/report_htest_fisher.R | 2 +- R/report_htest_ttest.R | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/R/report_htest_chi2.R b/R/report_htest_chi2.R index 0251bcf9..6d70ca90 100644 --- a/R/report_htest_chi2.R +++ b/R/report_htest_chi2.R @@ -17,7 +17,7 @@ estimate <- names(table)[1] rules <- ifelse(is.null(dot_args$rules), rules, dot_args$rules) - args <- list(table, rules = rules, dot_args) + args <- c(list(table, rules = rules), dot_args) interpretation <- do.call(effectsize::interpret, args)$Interpretation rules <- .text_effectsize(attr(attr(interpretation, "rules"), "rule_name")) } else { diff --git a/R/report_htest_fisher.R b/R/report_htest_fisher.R index dbfc1e98..a1f95f74 100644 --- a/R/report_htest_fisher.R +++ b/R/report_htest_fisher.R @@ -15,7 +15,7 @@ estimate <- names(table)[1] rules <- ifelse(is.null(dot_args$rules), rules, dot_args$rules) - args <- list(table, rules = rules, dot_args) + args <- c(list(table, rules = rules), dot_args) interpretation <- do.call(effectsize::interpret, args)$Interpretation rules <- .text_effectsize(attr(attr(interpretation, "rules"), "rule_name")) diff --git a/R/report_htest_ttest.R b/R/report_htest_ttest.R index 0fb20463..a30b3aac 100644 --- a/R/report_htest_ttest.R +++ b/R/report_htest_ttest.R @@ -50,7 +50,7 @@ estimate <- names(table)[1] rules <- ifelse(is.null(dot_args$rules), rules, dot_args$rules) - my_args <- list(table, rules = rules, dot_args) + my_args <- c(list(table, rules = rules), dot_args) interpretation <- do.call(effectsize::interpret, my_args)$Interpretation rules <- .text_effectsize(attr(attr(interpretation, "rules"), "rule_name"))