From 316f9eec511d8263cc30b3f07bda83a590132ff1 Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Mon, 14 Oct 2024 12:06:39 +0200
Subject: [PATCH] fix ggeffects

---
 R/methods_ggeffects.R | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/R/methods_ggeffects.R b/R/methods_ggeffects.R
index d5fd4e187..33d046976 100644
--- a/R/methods_ggeffects.R
+++ b/R/methods_ggeffects.R
@@ -1,6 +1,10 @@
 #' @export
 model_parameters.ggeffects <- function(model, keep = NULL, drop = NULL, verbose = TRUE, ...) {
   ci <- attributes(model)$ci.lvl
+  ## TODO: deprecate later, this is forthcoming in ggeffects 1.8.0
+  if (is.null(ci)) {
+    ci <- attributes(model)$ci_level
+  }
   co_terms <- attributes(model)$terms[-1]
   focal_term <- attributes(model)$terms[1]
   constant_values <- attributes(model)$constant.values