From e0be21ceebf08adbc11e0bc8ac01621dda4adee4 Mon Sep 17 00:00:00 2001
From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com>
Date: Wed, 18 Mar 2026 01:01:14 +0000
Subject: [PATCH 1/2] Initial plan


From 946b4768e3cb1e8420c8d6aa4e09166a2797f293 Mon Sep 17 00:00:00 2001
From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com>
Date: Wed, 18 Mar 2026 01:02:39 +0000
Subject: [PATCH 2/2] Add else-stop to getParamCCP for unknown data values

Co-authored-by: phoman14 <21298645+phoman14@users.noreply.github.com>
---
 tests/testthat/helper-Compare_Cell_Populations.R | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/tests/testthat/helper-Compare_Cell_Populations.R b/tests/testthat/helper-Compare_Cell_Populations.R
index 7699a99..d6c0f84 100644
--- a/tests/testthat/helper-Compare_Cell_Populations.R
+++ b/tests/testthat/helper-Compare_Cell_Populations.R
@@ -41,6 +41,11 @@ getParamCCP <- function(data) {
     sample.column <- "orig.ident"
     counts.type <- "Frequency"
     group.order <- NULL
+  } else {
+    stop(
+      "Unknown dataset '", data, "'. ",
+      "Supported datasets are: 'TEC', 'Chariou', 'PBMC', 'NSCLC', 'BRCA'."
+    )
   }
   
   return(