diff --git a/DESCRIPTION b/DESCRIPTION index 682b710e..370a05b5 100644 --- 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 index 116c8ac3..7185648e 100644 --- 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) }