From b83e803435e3118740d59a1988955732760aebf2 Mon Sep 17 00:00:00 2001 From: bbimber Date: Fri, 10 Apr 2026 14:16:42 -0700 Subject: [PATCH 1/2] Test updates --- tests/testthat/test-celltypist.R | 2 +- tests/testthat/test-geo.R | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/tests/testthat/test-celltypist.R b/tests/testthat/test-celltypist.R index 3aac11b..5d3bbe5 100644 --- a/tests/testthat/test-celltypist.R +++ b/tests/testthat/test-celltypist.R @@ -138,7 +138,7 @@ test_that("FilterDisallowedClasses works as expected", { expect_equal('RIRA_Immune_v2', seuratObj@misc$RIRA_Immune_Model) expect_equal(256, sum(seuratObj$RIRA_Immune_v2.cellclass == 'Bcell', na.rm = T), tolerance = 1) expect_equal(576, sum(seuratObj$RIRA_Immune_v2.cellclass == 'Myeloid', na.rm = T)) - expect_equal(1331, sum(seuratObj$RIRA_Immune_v2.cellclass == 'T_NK', na.rm = T)) + expect_equal(1340, sum(seuratObj$RIRA_Immune_v2.cellclass == 'T_NK', na.rm = T)) print('DisallowedUCellCombinations:') print(table(seuratObj$DisallowedUCellCombinations)) diff --git a/tests/testthat/test-geo.R b/tests/testthat/test-geo.R index d7a2b69..818d809 100644 --- a/tests/testthat/test-geo.R +++ b/tests/testthat/test-geo.R @@ -11,6 +11,7 @@ test_that("GEO Files Exist", { "GSE277821_RIRA.All.MergedClonotypes.txt.gz", "GSE277821_RIRA.All.Metadata.rds", "GSE277821_RIRA.All.RNA.counts.rds", + "GSE277821_RIRA.All.ADT.counts.int.rds", "GSE277821_RIRA.All.seurat.rds", "GSE277821_RIRA.Bcell.seurat.rds", "GSE277821_RIRA.Myeloid.seurat.rds", From b3be2e1ed88b536b7782f514f1b45121ce369b8a Mon Sep 17 00:00:00 2001 From: bbimber Date: Fri, 10 Apr 2026 15:40:41 -0700 Subject: [PATCH 2/2] Test updates --- tests/testthat/test-celltypist.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test-celltypist.R b/tests/testthat/test-celltypist.R index 5d3bbe5..daff18c 100644 --- a/tests/testthat/test-celltypist.R +++ b/tests/testthat/test-celltypist.R @@ -57,7 +57,7 @@ test_that("celltypist runs", { expect_equal(4, length(unique(seuratObj$RIRA.majority_voting)), info = 'using RIRA model', tolerance = 1) expect_equal(346, unname(table(seuratObj$RIRA.majority_voting)['Bcell']), tolerance = 1) expect_equal(1653, unname(table(seuratObj$RIRA.majority_voting)['T_NK']), tolerance = 1) - expect_equal(684, unname(table(seuratObj$RIRA.majority_voting)['Myeloid'])) + expect_equal(686, unname(table(seuratObj$RIRA.majority_voting)['Myeloid'])) # NOTE: this is very slow, so skip in automated testing for now modelFile <- 'myModel.pkl' @@ -137,7 +137,7 @@ test_that("FilterDisallowedClasses works as expected", { expect_equal('RIRA_Immune_v2', seuratObj@misc$RIRA_Immune_Model) expect_equal(256, sum(seuratObj$RIRA_Immune_v2.cellclass == 'Bcell', na.rm = T), tolerance = 1) - expect_equal(576, sum(seuratObj$RIRA_Immune_v2.cellclass == 'Myeloid', na.rm = T)) + expect_equal(577, sum(seuratObj$RIRA_Immune_v2.cellclass == 'Myeloid', na.rm = T)) expect_equal(1340, sum(seuratObj$RIRA_Immune_v2.cellclass == 'T_NK', na.rm = T)) print('DisallowedUCellCombinations:')