marginaleffects 0.20.1: minor change in labels (#968)

* marginaleffects 0.20.1: minor change in labels * trigger CI * update test * bump required version --------- Co-authored-by: Daniel <[email protected]>
easystats · May 13, 2024 · 2e3b010 · 2e3b010
1 parent b58da6d
commit 2e3b010
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 7 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: parameters
 Title: Processing of Model Parameters
-Version: 0.21.6.6
+Version: 0.21.6.7
 Authors@R:
     c(person(given = "Daniel",
              family = "Lüdecke",
@@ -151,7 +151,7 @@ Suggests:
     logspline,
     lqmm,
     M3C,
-    marginaleffects (>= 0.16.0),
+    marginaleffects (>= 0.20.1),
     MASS,
     Matrix,
     mclogit,
@@ -218,4 +218,3 @@ Config/Needs/website:
     r-lib/pkgdown,
     easystats/easystatstemplate
 Config/rcmdcheck/ignore-inconsequential-notes: true
-Remotes: easystats/insight
diff --git a/R/methods_marginaleffects.R b/R/methods_marginaleffects.R
@@ -23,6 +23,9 @@ model_parameters.marginaleffects <- function(model,
 
   attr(out, "object_name") <- insight::safe_deparse_symbol(substitute(model))
 
+  # do not print or report these columns
+  out <- out[, !colnames(out) %in% c("predicted_lo", "predicted_hi"), drop = FALSE]
+
   if (inherits(model, "marginalmeans")) {
     attr(out, "coefficient_name") <- "Marginal Means"
   } else if (inherits(model, "comparisons")) {

diff --git a/tests/testthat/test-marginaleffects.R b/tests/testthat/test-marginaleffects.R
@@ -8,10 +8,8 @@ test_that("marginaleffects()", {
   model <- marginaleffects::avg_slopes(x, newdata = insight::get_datagrid(x, at = "Species"), variables = "Petal.Length")
   out <- parameters(model)
   expect_identical(nrow(out), 1L)
-  expect_named(out, c(
-    "Parameter", "Coefficient", "SE", "Statistic",
-    "p", "S", "CI", "CI_low", "CI_high"
-  ))
+  cols <- c("Parameter", "Comparison", "Coefficient", "SE", "Statistic", "p", "S", "CI", "CI_low", "CI_high")
+  expect_true(all(cols %in% colnames(out)))
   out <- model_parameters(model, exponentiate = TRUE)
   expect_equal(out$Coefficient, 1.394, tolerance = 1e-3)
 

diff --git a/tests/testthat/test-model_parameters.coxme.R b/tests/testthat/test-model_parameters.coxme.R
@@ -1,6 +1,7 @@
 skip_on_cran()
 skip_if_not_installed("coxme")
 skip_if_not_installed("survival")
+skip_if_not_installed("withr")
 
 # modelparameters ----------------------------------