Remove pipe from the checks

LieberInstitute · Jan 9, 2024 · bdb45a0 · bdb45a0
1 parent b151e69
commit bdb45a0
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/R/DEqual.R b/R/DEqual.R
@@ -45,14 +45,12 @@ DEqual <- function(DE) {
     # stopifnot(!is.null(rownames(DE)))
 
     # Check if 't' is in the column names of DE
-    DE %>%
-      if (!("t" %in% colnames(.))) {
+      if (!("t" %in% colnames(DE))) {
         stop("Error: 't' is not a column in DE.")
       }
 
     # Check if DE has non-null row names
-    DE %>%
-      if (is.null(rownames(.))) {
+      if (is.null(rownames(DE))) {
         stop("Error: Row names of DE are null.")
       }