From 4adf661f8874ffdf888a392f32e8140badf4d1f0 Mon Sep 17 00:00:00 2001 From: Arek Gladki <41166437+gladkia@users.noreply.github.com> Date: Mon, 14 Oct 2024 09:55:01 +0200 Subject: [PATCH] Update tests/testthat/test-duplicates.R Co-authored-by: j-smola <31825957+j-smola@users.noreply.github.com> --- tests/testthat/test-duplicates.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/testthat/test-duplicates.R b/tests/testthat/test-duplicates.R index 3d85d64c..e25ca90e 100644 --- a/tests/testthat/test-duplicates.R +++ b/tests/testthat/test-duplicates.R @@ -73,7 +73,7 @@ test_that("[has|get]_assay_dt_duplicated_rows works as expected", { # combo data cdata <- get_synthetic_data("finalMAE_combo_matrix_small") - cscores_data <- convert_se_assay_to_dt(cdata[[1]], "scores") + cscores_data <- convert_se_assay_to_dt(cdata[[get_supported_experiments("combo")]], "scores") cscores_dup_data <- rbind(cscores_data, cscores_data[1:10, ]) expect_false(has_assay_dt_duplicated_rows(cscores_data)) expect_true(has_assay_dt_duplicated_rows(cscores_dup_data))