|
...
|
...
|
@@ -16,8 +16,7 @@ test_that(desc = "Testing SingleR", {
|
|
16
|
16
|
sce <- runSingleR(sce)
|
|
17
|
17
|
testthat::expect_true("SingleR_hpca_main_scores" %in% names(colData(sce)))
|
|
18
|
18
|
testthat::expect_true("SingleR_hpca_main_labels" %in% names(colData(sce)))
|
|
19
|
|
- #testthat::expect_true("SingleR_hpca_main_first.labels" %in% names(colData(sce)))
|
|
20
|
|
- #testthat::expect_true("SingleR_hpca_main_delta.next" %in% names(colData(sce)))
|
|
|
19
|
+ testthat::expect_true("SingleR_hpca_main_first.labels" %in% names(colData(sce)) | "SingleR_hpca_main_delta.next" %in% names(colData(sce)))
|
|
21
|
20
|
testthat::expect_true("SingleR_hpca_main_pruned.labels" %in% names(colData(sce)))
|
|
22
|
21
|
})
|
|
23
|
22
|
})
|
