Stop if reference lables use / as its used as sep in annotations

Author: lahuuki

R/annotate_registered_clusters.R

@@ -58,6 +58,13 @@ annotate_registered_clusters <-
                 annotate_registered_cluster,
                 cutoff_merge_ratio = cutoff_merge_ratio
             )
+        
+        if(any(grepl("/", colnames(cor_stats_layer)))) {
+          stop(
+            "Cannot use refrence lables containing '/' - check colnames(cor_stats_layer)",
+            call. = FALSE
+          )
+        }
 
         confidence <- apply(cor_stats_layer, 1, max) > confidence_threshold
 

tests/testthat/test-annotate_registered_cluster.R

@@ -0,0 +1,25 @@
+## Obtain the necessary data
+if (!exists("modeling_results")) {
+    modeling_results <- fetch_data(type = "modeling_results")
+}
+
+## query spatialDLPFC modeling results
+query_modeling_results <- fetch_data(
+  type = "spatialDLPFC_Visium_modeling_results"
+)
+
+## Compute the correlations
+cor_stats_layer <- layer_stat_cor(
+  stats = query_modeling_results$enrichment,
+  modeling_results,
+  model_type = "enrichment"
+)
+
+## Obtain labels
+annotate_registered_clusters(cor_stats_layer)
+
+
+test_that("Stop with slash", {
+  colnames(cor_stats_layer) <- gsub("ayer", "/", colnames(cor_stats_layer))
+  expect_error(annotate_registered_clusters(cor_stats_layer))
+})