From 14b156b9b53ee9fd8a9ead09d2a9baee056e14ae Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micka=C3=ABl=20Canouil?=
 <8896044+mcanouil@users.noreply.github.com>
Date: Wed, 6 Nov 2024 15:27:52 +0000
Subject: [PATCH] fix: wrong object class

---
 tests/testthat/test-time_model.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tests/testthat/test-time_model.R b/tests/testthat/test-time_model.R
index 2e64011..3fabecb 100644
--- a/tests/testthat/test-time_model.R
+++ b/tests/testthat/test-time_model.R
@@ -169,7 +169,9 @@ test_that("time_model", {
 
   for (i in names(res)) {
     expect_snapshot(
-      compute_correlations(fit = res[[i]], method = i)[, lapply(.SD, round, digits = 2L), .SDcols = is.numeric]
+      as.data.table(
+        compute_correlations(fit = res[[i]], method = i)
+      )[, lapply(.SD, round, digits = 2L), .SDcols = is.numeric]
     )
     expect_snapshot({
       out <- compute_aucs(fit = res[[i]], method = i)