Fix the error message

Co-authored-by: Nick Eagles <[email protected]>
LieberInstitute · Jan 9, 2024 · c936b18 · c936b18
1 parent 2fb709b
commit c936b18
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/getDegTx.R b/R/getDegTx.R
@@ -44,7 +44,7 @@ getDegTx <- function(rse_tx, type = c("cell_component", "standard", "top1500"),
 
   # Check if any gene in sig_transcripts is in rownames(rse_tx)
   if (!any(sig_transcripts %in% rownames(rse_tx) | (gsub('\\..*', '', sig_transcripts) %in% rownames(rse_tx)))) {
-    stop("sig_transcripts and rownames(rse_tx) do not match")
+    stop("sig_transcripts and rownames of rse_tx object do not match")
   }
 
   # Check if all rownames start with "ENST"

diff --git a/tests/testthat/test-getDegTx.R b/tests/testthat/test-getDegTx.R
@@ -48,7 +48,7 @@ test_that("No sig_transcripts are in covComb_tx_deg rownames", {
     # Check if any of the sig_transcripts are in covComb_tx_deg rownames
     getDegTx(covComb_tx_deg,sig_transcripts = sig_transcripts)
 
-  }, "No sig_transcripts found in rownames(covComb_tx_deg)")
+  }, "sig_transcripts and rownames of rse_tx object do not match")
 })
 
 # Test whether getDegTx gives the same results with original and altered row names