update getIR unittests

BorchLab · Aug 9, 2024 · 7166c3e · 7166c3e
1 parent f7bac08
commit 7166c3e
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/getIR.R b/R/getIR.R
@@ -36,7 +36,7 @@ getIR <- function(input.data,
     rownames(meta) <- meta[,"barcode"]
   }
   if(chains %!in% c("TRA", "TRB", "TRG", "TRD", "Heavy", "Light")) {
-    stop("Please select one of the following chains: 'TRA', 'TRB', 'TRG', 'TRD' 'Heavy', 'Light'")
+    stop("Please select one of the following chains: 'TRA', 'TRB', 'TRG', 'TRD', 'Heavy', 'Light'")
   }
   tmp <- data.frame(barcode = rownames(meta), 
                     str_split(meta[,"CTaa"], "_", simplify = TRUE), 

diff --git a/tests/testthat/test-getIR.R b/tests/testthat/test-getIR.R
@@ -21,7 +21,7 @@ test_that("getIR works", {
 
     expect_error(getIR(input.data = dummy_data, 
                        chains = "invalidChain"),
-                 "Please select one of the following chains: 'TRA', 'TRB', 'Heavy', 'Light'")
+                 "Please select one of the following chains: 'TRA', 'TRB', 'TRG', 'TRD', 'Heavy', 'Light'")
   })
 
   test_that("Test for correct output type", {