fix for bayestestR

Author: strengejacke

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: modelbased
 Title: Estimation of Model-Based Predictions, Contrasts and Means
-Version: 0.8.8
+Version: 0.8.8.1
 Authors@R:
     c(person(given = "Dominique",
              family = "Makowski",
@@ -34,11 +34,11 @@ BugReports: https://github.com/easystats/modelbased/issues
 Depends:
     R (>= 3.6)
 Imports:
-    bayestestR (>= 0.13.2),
-    datawizard (>= 0.11.0),
+    bayestestR (>= 0.15.0),
+    datawizard (>= 0.13.0),
     effectsize (>= 0.8.8),
-    insight (>= 0.20.0),
-    parameters (>= 0.21.7),
+    insight (>= 0.20.5),
+    parameters (>= 0.22.2),
     performance (>= 0.12.0),
     graphics,
     stats,

NEWS.md

@@ -1,4 +1,6 @@
-# modelbased (development version)
+# modelbased 0.8.9
+
+- Fixed issues related to updates of other *easystats* packages.
 
 # modelbased 0.8.6
 
@@ -102,4 +104,3 @@
 # modelbased 0.1.0
 
 - Added a `NEWS.md` file to track changes to the package
-

R/get_emmeans.R

@@ -115,8 +115,12 @@ model_emmeans <- get_emmeans
   if (insight::model_info(model)$is_bayesian) {
     means <- parameters::parameters(estimated, ci = ci, ...)
     means <- .clean_names_bayesian(means, model, transform, type = "mean")
-    means <- cbind(estimated@grid, means)
-    means[[".wgt."]] <- NULL # Drop the weight column
+    em_grid <- as.data.frame(estimated@grid)
+    em_grid[[".wgt."]] <- NULL # Drop the weight column
+    colums_to_add <- setdiff(colnames(em_grid), colnames(means))
+    if (length(colums_to_add)) {
+      means <- cbind(em_grid[colums_to_add], means)
+    }
   } else {
     means <- as.data.frame(stats::confint(estimated, level = ci))
     means$df <- NULL