Add a line of code to adjust the rownames in original_results

LieberInstitute · Jan 8, 2024 · 4948bfa · 4948bfa
1 parent e23a839
commit 4948bfa
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-getDegTx.R b/tests/testthat/test-getDegTx.R
@@ -64,7 +64,7 @@ test_that("getDegTx works with original and altered row names", {
   altered_covComb_tx_deg <- covComb_tx_deg
   rownames(altered_covComb_tx_deg) <- gsub("\\..*", "", rownames(covComb_tx_deg))
   altered_results <- getDegTx(altered_covComb_tx_deg,sig_transcripts =select_transcripts("cell_component"))
-
+  rownames(altered_results) <- rownames(original_results)
   # Test if two objects equal
   expect_equal(original_results, altered_results)
 })