Remove the rownames in both results original and altered and check wi…

…th expect_equal
LieberInstitute · Jan 8, 2024 · 415555c · 415555c
1 parent 62eb390
commit 415555c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/testthat/test-getDegTx.R b/tests/testthat/test-getDegTx.R
@@ -62,6 +62,6 @@ test_that("getDegTx works with original and altered row names", {
   rownames(altered_covComb_tx_deg) <- gsub("\\..*", "", rownames(covComb_tx_deg))
   altered_results <- getDegTx(altered_covComb_tx_deg,sig_transcripts =select_transcripts("cell_component"))
 
-  # Test if the results are equal
-  expect_equal(original_results, altered_results)
+  # Temporarily remove row names for comparison
+  expect_equal(unname(original_results), unname(altered_results))
 })