diff --git a/tests/testthat/testTriplets.R b/tests/testthat/testTriplets.R index d09fbda..f7d3068 100644 --- a/tests/testthat/testTriplets.R +++ b/tests/testthat/testTriplets.R @@ -7,8 +7,6 @@ test_that("reference objects storing sequence similarity scan tables work correc ssObj <- hyb$triplets$triplets[[1]]$ScanData expect_is(ssObj$TableFile, "character") expect_is(ssObj$Table, "data.frame") - expect_true(ssObj$tableIsBlank()) - hyb$analyzeSS(c("Seq1", "Seq2", "Seq3")) expect_false(ssObj$tableIsBlank()) expect_true(!any(apply(ssObj$Table, 2, function(x) any(is.na(x))))) ssObj$blankTable()