correction of a conflict between the argument auto.labs= and equation=.

SciViews · Jun 6, 2024 · 3420b41 · 3420b41
1 parent 2bb567d
commit 3420b41
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/R/tabularise.glm.R b/R/tabularise.glm.R
@@ -76,7 +76,7 @@ lang = getOption("data.io_lang", "en"), ..., kind = "ft", env = parent.frame())
     if (!is.null(labs)) {
       equa <- equation(data, swap_var_names =  labs, ...)
     } else {
-      equa <- equation(data, ...)
+      equa <- equation(data, auto.labs = FALSE,...)
     }
 
     ft <- .add_header(ft, data = data, info_lang = info_lang, header = header,
@@ -251,7 +251,7 @@ env = parent.frame()) {
     if (!is.null(labs)) {
       equa <- equation(data, swap_var_names =  labs, ...)
     } else {
-      equa <- equation(data, ...)
+      equa <- equation(data, auto.labs = FALSE, ...)
     }
 
     ft <- .add_header(ft, data = data, info_lang = info_lang, header = header,
@@ -370,7 +370,7 @@ tabularise_glance.glm <- function(data, header = TRUE, title = NULL,
     if (!is.null(labs)) {
       equa <- equation(data, swap_var_names =  labs, ...)
     } else {
-      equa <- equation(data, ...)
+      equa <- equation(data, auto.labs = FALSE, ...)
     }
 
     ft <- .add_header(ft, data = data, info_lang = info_lang, header = header,

diff --git a/R/tabularise.lm.R b/R/tabularise.lm.R
@@ -73,7 +73,7 @@ tabularise_coef.lm <- function(data, header = TRUE, title = NULL,
     if (!is.null(labs)) {
       equa <- equation(data, swap_var_names =  labs, ...)
     } else {
-      equa <- equation(data, ...)
+      equa <- equation(data, auto.labs = FALSE, ...)
     }
 
     ft <- .add_header(ft, data = data, info_lang = info_lang, header = header,
@@ -224,7 +224,7 @@ tabularise_tidy.lm <- function(data, header = TRUE, title = NULL,
     if (!is.null(labs)) {
       equa <- equation(data, swap_var_names =  labs, ...)
     } else {
-      equa <- equation(data, ...)
+      equa <- equation(data, auto.labs = FALSE, ...)
     }
 
     ft <- .add_header(ft, data = data, info_lang = info_lang, header = header,
@@ -339,7 +339,7 @@ tabularise_glance.lm <- function(data, header = TRUE, title = NULL,
     if (!is.null(labs)) {
       equa <- equation(data, swap_var_names = labs, ...)
     } else {
-      equa <- equation(data, ...)
+      equa <- equation(data, auto.labs = FALSE, ...)
     }
 
     ft <- .add_header(ft, data = data, info_lang = info_lang, header = header,