Merge branch 'diff-diagnostics' into model-names-as-column

jgabry · jgabry · commit 9b43e062d8a0 · 2025-10-18T13:50:55.000-06:00
diff --git a/R/loo_compare.R b/R/loo_compare.R
@@ -184,6 +184,8 @@ print.compare.loo <- function(x, ..., digits = 1, p_worse = TRUE) {
       "or run unclass() on the object to print it.",
       call. = FALSE
     )
+  if (!inherits(x, "data.frame")) {
+    class(x) <- c(class(x), "data.frame")
   }
   xcopy <- x
   if (NCOL(xcopy) >= 2) {

Original file line number	Diff line number	Diff line change
`@@ -184,6 +184,8 @@ print.compare.loo <- function(x, ..., digits = 1, p_worse = TRUE) {`
`184`	`184`	`"or run unclass() on the object to print it.",`
`185`	`185`	`call. = FALSE`
`186`	`186`	`)`
	`187`	`+ if (!inherits(x, "data.frame")) {`
	`188`	`+ class(x) <- c(class(x), "data.frame")`
`187`	`189`	`}`
`188`	`190`	`xcopy <- x`
`189`	`191`	`if (NCOL(xcopy) >= 2) {`