Add error message for check if the length of 'common' is greater than 0

LieberInstitute · Jan 9, 2024 · e62f580 · e62f580
1 parent bdb45a0
commit e62f580
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/R/DEqual.R b/R/DEqual.R
@@ -56,7 +56,14 @@ DEqual <- function(DE) {
 
     ## Locate common transcripts
     common <- intersect(rownames(qsvaR::degradation_tstats), rownames(DE))
-    stopifnot(length(common) > 0)
+    #stopifnot(length(common) > 0)
+
+    # Check if the length of 'common' is greater than 0
+    if (length(common) <= 0) {
+      stop("Error: The length of 'common' should be greater than 0.")
+    }
+
+
     common_data <- data.frame(
         degradation_t = qsvaR::degradation_tstats$t[match(common, rownames(qsvaR::degradation_tstats))],
         DE_t = DE$t[match(common, rownames(DE))]