docs

easystats · Sep 11, 2023 · 06ab471 · 06ab471
1 parent afc1333
commit 06ab471
Show file tree

Hide file tree

Showing 6 changed files with 20 additions and 7 deletions.
diff --git a/R/display.R b/R/display.R
@@ -91,6 +91,7 @@ display.parameters_model <- function(object,
                                      font_size = "100%",
                                      line_padding = 4,
                                      column_labels = NULL,
+                                     add_reference = FALSE,
                                      verbose = TRUE,
                                      ...) {
   if (identical(format, "html")) {

diff --git a/R/print.parameters_model.R b/R/print.parameters_model.R
@@ -237,6 +237,7 @@ print.parameters_model <- function(x,
                                    groups = NULL,
                                    column_width = NULL,
                                    ci_brackets = c("[", "]"),
+                                   add_reference = FALSE,
                                    ...) {
   # save original input
   orig_x <- x
@@ -286,6 +287,7 @@ print.parameters_model <- function(x,
     ci_brackets = ci_brackets,
     format = "text",
     groups = groups,
+    add_reference = add_reference,
     ...
   )
 
@@ -382,6 +384,7 @@ print.parameters_random <- function(x, digits = 2, ...) {
                         ci_brackets = TRUE,
                         format = "text",
                         group = NULL,
+                        add_reference = FALSE,
                         ...) {
   format(
     x,
@@ -396,6 +399,7 @@ print.parameters_random <- function(x, digits = 2, ...) {
     zap_small = zap_small,
     format = format,
     group = group,
+    add_reference = add_reference,
     ...
   )
 }

diff --git a/R/print_html.R b/R/print_html.R
@@ -22,6 +22,7 @@ print_html.parameters_model <- function(x,
                                         font_size = "100%",
                                         line_padding = 4,
                                         column_labels = NULL,
+                                        add_reference = FALSE,
                                         verbose = TRUE,
                                         ...) {
   # check if user supplied digits attributes
@@ -82,6 +83,7 @@ print_html.parameters_model <- function(x,
     ci_brackets = ci_brackets,
     format = "html",
     groups = groups,
+    add_reference = add_reference,
     ...
   )
 

diff --git a/R/print_md.R b/R/print_md.R
@@ -19,6 +19,7 @@ print_md.parameters_model <- function(x,
                                       show_formula = FALSE,
                                       zap_small = FALSE,
                                       groups = NULL,
+                                      add_reference = FALSE,
                                       verbose = TRUE,
                                       ...) {
   # check if user supplied digits attributes
@@ -66,6 +67,7 @@ print_md.parameters_model <- function(x,
     ci_brackets = ci_brackets,
     format = "markdown",
     groups = groups,
+    add_reference = add_reference,
     ...
   )
 

diff --git a/man/display.parameters_model.Rd b/man/display.parameters_model.Rd
diff --git a/man/print.parameters_model.Rd b/man/print.parameters_model.Rd