initial test circos_shape_data

FertigLab · Jul 22, 2024 · 8b7c589 · 8b7c589
1 parent f446ec9
commit 8b7c589
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/tests/testthat/test-circos.R b/tests/testthat/test-circos.R
@@ -0,0 +1,10 @@
+test_that("Creating a circos plot data frame", {
+  data(PBMC)
+  arc_df <- circos_lr_shape_data(
+    dom = v0.2.1$pbmc_dom_built_tiny, 
+    receptor="CXCR3", 
+    ligand_expression_threshold = 0.01, cell_idents = NULL
+  )
+  expect_true(is(arc_df, "data.frame"))
+
+})