Fix for downstream error in tern.gee

rvlenth · May 20, 2024 · e636921 · e636921
1 parent 24e0b0a
commit e636921
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -2,7 +2,7 @@ Package: emmeans
 Type: Package
 Title: Estimated Marginal Means, aka Least-Squares Means
 Version: 1.10.2
-Date: 2024-05-18
+Date: 2024-05-19
 Authors@R: c(person("Russell V.", "Lenth", role = c("aut", "cre", "cph"), 
     email = "russell-lenth@uiowa.edu"),
     person("Ben", "Bolker", role = "ctb"),

diff --git a/R/emm-list.R b/R/emm-list.R
@@ -222,8 +222,11 @@ rbind.emm_list = function(..., which, adjust = "bonferroni") {
 #' @method rbind summary_emm
 rbind.summary_emm = function(..., which) {
     slobj = list(...)
-    if(!all(sapply(slobj, \(z) inherits(z, "summary_emm"))))
-        stop("All objects must inherit from 'summary_emm'")
+    if(!all(sapply(slobj, \(z) inherits(z, "data.frame")))) {
+        # workaround to make tern.gee::lsmeans() work
+        slobj = lapply(slobj, \(z) if(inherits(z, "data.frame")) data.frame(z) else z)
+       return(do.call("rbind", slobj))
+    }
     rbind.summary_eml(slobj, which = which)
 }