Add single quote to DE

LieberInstitute · Jan 16, 2024 · d5071b5 · d5071b5
1 parent cd5fde3
commit d5071b5
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/DEqual.R b/R/DEqual.R
@@ -51,12 +51,12 @@ DEqual <- function(DE) {
 
     # Check if 't' is in the column names of DE
     if (!("t" %in% colnames(DE))) {
-        stop("'t' is not a column in DE.", call. = FALSE)
+        stop("'t' is not a column in 'DE'.", call. = FALSE)
       }
 
     # Check if DE has non-null row names
     if (is.null(rownames(DE))) {
-        stop("Row names of DE are NULL.", call. = FALSE)
+        stop("Row names of 'DE' are NULL.", call. = FALSE)
       }
 
     ## Locate common transcripts

diff --git a/tests/testthat/test-DEqual.R b/tests/testthat/test-DEqual.R
@@ -19,7 +19,7 @@ test_that("DEqual throws an error for non-dataframe input", {
 test_that("DE does not have column 't'", {
   DE_without_t <- random_de
   DE_without_t$t <- NULL
-  expect_error(DEqual(DE_without_t), "'t' is not a column in DE.")
+  expect_error(DEqual(DE_without_t), "'t' is not a column in 'DE'.")
 })
 
 # Test that the output is a ggplot object