fix failing test

jgabry · jgabry · commit 23a79c0de892 · 2025-10-18T14:18:13.000-06:00
diff --git a/R/loo_compare.R b/R/loo_compare.R
@@ -175,7 +175,7 @@ loo_compare.default <- function(x, ...) {
 #'   approximation based probability of each model having worse performance than
 #'   the best model? The default is `TRUE`.
 print.compare.loo <- function(x, ..., digits = 1, p_worse = TRUE) {
-  if (!inherits(x, "data.frame")) {
+  if (!inherits(x, "data.frame") && !inherits(x, "old_compare.loo")) {
     class(x) <- c(class(x), "data.frame")
   }
   xcopy <- x

Original file line number	Diff line number	Diff line change
`@@ -175,7 +175,7 @@ loo_compare.default <- function(x, ...) {`
`175`	`175`	`#' approximation based probability of each model having worse performance than`
`176`	`176`	#' the best model? The default is `TRUE`.
`177`	`177`	`print.compare.loo <- function(x, ..., digits = 1, p_worse = TRUE) {`
`178`		`- if (!inherits(x, "data.frame")) {`
	`178`	`+ if (!inherits(x, "data.frame") && !inherits(x, "old_compare.loo")) {`
`179`	`179`	`class(x) <- c(class(x), "data.frame")`
`180`	`180`	`}`
`181`	`181`	`xcopy <- x`