Remove class conflicts from R4.0

martingarridorc · May 13, 2020 · 372d152 · 372d152
1 parent ba951ca
commit 372d152
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 10 deletions.
diff --git a/tests/testthat/test_designAndContrasts.R b/tests/testthat/test_designAndContrasts.R
@@ -1,12 +1,5 @@
 data("blmSubset")
 
-test_that("Create design matrix from sample information", {
-
-  t <- designFromSampInfo(blmSampInfo, column = "group")
-  expect_equal(class(t), "matrix")
-
-})
-
 test_that("Create pairwise contrasts and contrasts from design", {
 
   d <- designFromSampInfo(blmSampInfo, column = "group")

diff --git a/tests/testthat/test_preprocessCounts.R b/tests/testthat/test_preprocessCounts.R
@@ -8,23 +8,20 @@ test_that("Summarise matrix works nice", {
 
   t <- summariseMatrix(x = testMat, df = translatorDf, sourceKey = "from", targetKey = "to", summariseFun = sum)
   expect_equal(as.numeric(rowSums(t)[3]), 576)
-  expect_equal(class(t), "matrix")
   expect_equal(typeof(t), "integer")
 
 })
 
 test_that("Test translate matrix with db", {
 
   t <- translateMatrix(x = blmCounts, db = org.Mm.eg.db, sourceKey = "ENTREZID", targetKey = "SYMBOL", summariseFun = sum)
-  expect_equal(class(t), "matrix")
   expect_equal(typeof(t), "integer")
 
 })
 
 test_that("Tmm normalization", {
 
   t <- countsToTmm(x = blmCounts)
-  expect_equal(class(t), "matrix")
   expect_equal(typeof(t), "double")
 
 })