fix

R/format.R

@@ -3,6 +3,7 @@
 #' @export
 format.estimate_contrasts <- function(x,
                                       format = NULL,
+                                      select = getOption("modelbased_select", NULL),
                                       include_grid = getOption("modelbased_include_grid", FALSE),
                                       ...) {
   # don't print columns of adjusted_for variables
@@ -60,9 +61,9 @@ format.estimate_contrasts <- function(x,
   x <- datawizard::remove_empty_columns(x)
 
   if (!is.null(format) && format %in% c("md", "markdown", "html")) {
-    insight::format_table(x, ci_brackets = c("(", ")"), ...)
+    insight::format_table(x, ci_brackets = c("(", ")"), select = select, format = "html", ...)
   } else {
-    insight::format_table(x, ...)
+    insight::format_table(x, select = select, ...)
   }
 }
 

R/print.R

@@ -4,8 +4,6 @@
 #' of tables.
 #'
 #' @param x An object returned by the different `estimate_*()` functions.
-#' @param select Character string, indicating which columns should be included
-#' in the table.
 #' @param include_grid Logical, if `TRUE`, the data grid is included in the
 #' table output. Only applies to prediction-functions like `estimate_relation()`
 #' or `estimate_link()`.
@@ -14,6 +12,8 @@
 #' @param ... Arguments passed to `insight::format_table()` or
 #' `insight::export_table()`.
 #'
+#' @inheritParams insight::format_table
+#'
 #' @return Invisibly returns `x`.
 #'
 #' @section Global Options to Customize Tables when Printing:
@@ -51,14 +51,9 @@ print.estimate_contrasts <- function(x,
   attr <- attributes(x)
   attr <- attr[setdiff(names(attr), c("names", "row.names"))]
 
-  # select columns to print
-  if (!is.null(select)) {
-    out <- .format_layout(out, select)
-    attributes(out) <- utils::modifyList(attributes(out), attr)
-  }
-
   # format table
-  out <- format(out, include_grid = include_grid, ...)
+  out <- format(out, select = select, include_grid = include_grid, ...)
+  attributes(out) <- utils::modifyList(attributes(out), attr)
 
   # remove redundant labels, for "by" variables
   out <- .remove_redundant_labels(x, out, full_labels)

tests/testthat/test-print.R

@@ -112,7 +112,7 @@ test_that("print - layouts and include data grid", {
   model <- lm(Petal.Length ~ Species, data = iris)
   out <- estimate_means(model, "Species")
   expect_snapshot(print(out))
-  expect_snapshot(print(out, select = "basic"))
+  expect_snapshot(print(out, select = "minimal"))
 
   m <- lm(wt ~ qsec + mpg, dat = mtcars)
   expect_snapshot(print(estimate_relation(m, by = "qsec")))