From a8ed21b1f3cabe623d6f6392993d497777a37290 Mon Sep 17 00:00:00 2001 From: HediaTnani Date: Mon, 8 Jan 2024 10:14:02 -0500 Subject: [PATCH] Add select_transcripts to the test --- tests/testthat/test-getDegTx.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test-getDegTx.R b/tests/testthat/test-getDegTx.R index a775611..aabaf4a 100644 --- a/tests/testthat/test-getDegTx.R +++ b/tests/testthat/test-getDegTx.R @@ -54,12 +54,12 @@ test_that("No sig_transcripts are in rse_tx rownames", { test_that("getDegTx works with original and altered row names", { # Apply getDegTx to covComb_tx_deg - original_results <- getDegTx(covComb_tx_deg) + original_results <- getDegTx(covComb_tx_deg,select_transcripts("cell_component")) # Alter the row names of covComb_tx_deg and apply getDegTx altered_covComb_tx_deg <- covComb_tx_deg rownames(altered_covComb_tx_deg) <- gsub("\\..*", "", rownames(covComb_tx_deg)) - altered_results <- getDegTx(altered_covComb_tx_deg) + altered_results <- getDegTx(altered_covComb_tx_deg,select_transcripts("cell_component")) # Test if the results are equivalent expect_equivalent(original_results, altered_results)