fix

easystats · Oct 6, 2024 · 16aee8f · 16aee8f
1 parent 193a8a9
commit 16aee8f
Show file tree

Hide file tree

Showing 3 changed files with 24 additions and 3 deletions.
diff --git a/R/methods_brglm2.R b/R/methods_brglm2.R
@@ -160,10 +160,17 @@ model_parameters.multinom <- function(model,
                                       exponentiate = FALSE,
                                       p_adjust = NULL,
                                       summary = getOption("parameters_summary", FALSE),
+                                      include_info = getOption("parameters_info", FALSE),
                                       keep = NULL,
                                       drop = NULL,
                                       verbose = TRUE,
                                       ...) {
+  ## TODO remove deprecated later
+  if (!missing(summary)) {
+    .deprecated_warning("summary", "include_info", verbose)
+    include_info <- summary
+  }
+
   model_parameters.bracl(
     model,
     ci = ci,
@@ -173,7 +180,7 @@ model_parameters.multinom <- function(model,
     standardize = standardize,
     exponentiate = exponentiate,
     p_adjust = p_adjust,
-    summary = summary,
+    include_info = include_info,
     keep = keep,
     drop = drop,
     verbose = verbose,

diff --git a/R/methods_fixest.R b/R/methods_fixest.R
@@ -132,12 +132,19 @@ model_parameters.fixest_multi <- function(model,
                                           exponentiate = FALSE,
                                           p_adjust = NULL,
                                           summary = getOption("parameters_summary", FALSE),
+                                          include_info = getOption("parameters_info", FALSE),
                                           keep = NULL,
                                           drop = NULL,
                                           verbose = TRUE,
                                           vcov = NULL,
                                           vcov_args = NULL,
                                           ...) {
+  ## TODO remove deprecated later
+  if (!missing(summary)) {
+    .deprecated_warning("summary", "include_info", verbose)
+    include_info <- summary
+  }
+
   # iterate over responses
   out <- lapply(
     model,
@@ -149,7 +156,7 @@ model_parameters.fixest_multi <- function(model,
     standardize = standardize,
     exponentiate = exponentiate,
     p_adjust = p_adjust,
-    summary = summary,
+    include_info = include_info,
     keep = keep,
     drop = drop,
     verbose = verbose,

diff --git a/R/methods_systemfit.R b/R/methods_systemfit.R
@@ -8,10 +8,17 @@ model_parameters.systemfit <- function(model,
                                        exponentiate = FALSE,
                                        p_adjust = NULL,
                                        summary = FALSE,
+                                       include_info = getOption("parameters_info", FALSE),
                                        keep = NULL,
                                        drop = NULL,
                                        verbose = TRUE,
                                        ...) {
+  ## TODO remove deprecated later
+  if (!missing(summary)) {
+    .deprecated_warning("summary", "include_info", verbose)
+    include_info <- summary
+  }
+
   out <- .model_parameters_generic(
     model = model,
     ci = ci,
@@ -24,7 +31,7 @@ model_parameters.systemfit <- function(model,
     p_adjust = p_adjust,
     keep_parameters = keep,
     drop_parameters = drop,
-    summary = summary,
+    include_info = include_info,
     ...
   )