Change how unspecified ... arguments are passed to other functions

Fixes #442
easystats · Jun 27, 2024 · 344dd88 · 344dd88
1 parent d26b750
commit 344dd88
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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
@@ -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"))