unuspervised test update

RECETOX · Jul 25, 2024 · 701861e · 701861e
1 parent 4cadd1d
commit 701861e
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/tests/testthat/test-unsupervised.R b/tests/testthat/test-unsupervised.R
@@ -13,7 +13,7 @@ patrick::with_parameters_test_that(
 
     result <- unsupervised(test_files, cluster = get_num_workers())
     keys <- c("mz", "rt", "sample", "sample_rt", "sample_intensity")
-    actual <- result$recovered_feature_sample_table
+    actual <- as_tibble(result$recovered_feature_sample_table)
 
     if (store_reports) {
       report <- dataCompareR::rCompare(
@@ -32,6 +32,8 @@ patrick::with_parameters_test_that(
       )
     }
 
+    # arrow::write_parquet(actual, file.path("../testdata/unsupervised", paste0(.test_name, "_unsupervised_new.parquet")))
+
     expect_equal(actual, expected)
   },
   patrick::cases(