From d5071b5801d9ceeac9146e732632fab13c546f0f Mon Sep 17 00:00:00 2001 From: HediaTnani Date: Tue, 16 Jan 2024 12:06:14 -0500 Subject: [PATCH] Add single quote to DE --- R/DEqual.R | 4 ++-- tests/testthat/test-DEqual.R | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/R/DEqual.R b/R/DEqual.R index a7d89a0..ec89936 100644 --- 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 index 79ea174..5ead71d 100644 --- 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