Fix failing *marginaleffects* test

[strengejacke]

library(testthat)
library(parameters)
x <- lm(Sepal.Width ~ Species * Petal.Length, data = iris)
model <- marginaleffects::avg_slopes(x, newdata = insight::get_datagrid(x, by = "Species"), variables = "Petal.Length")
out <- parameters(model)
expect_identical(nrow(out), 1L)
cols <- c("Parameter", "Comparison", "Coefficient", "SE", "Statistic", "p", "S", "CI", "CI_low", "CI_high")
expect_true(all(cols %in% colnames(out)))
#> Error: all(cols %in% colnames(out)) is not TRUE
#> 
#> `actual`:   FALSE
#> `expected`: TRUE

^{Created on 2024-11-26 with reprex v2.1.1}

@vincentarelbundock The column "Comparison" is no longer available in the latest marginaleffects update, is that correct?

[vincentarelbundock]

I am so sorry for this. I meant to remove the column only in the printed output, not in the object itself. This will be fixed in the next version (likely 1.0.0).

One simple fix on your end might be to skip the test conditional on version 1.0.0.

Sorry again for the trouble.