From 372d152c33df4dd9fc035f5c9b4d46ad860af686 Mon Sep 17 00:00:00 2001 From: Martin Garrido-Rodriguez Date: Wed, 13 May 2020 14:38:29 +0200 Subject: [PATCH] Remove class conflicts from R4.0 --- tests/testthat/test_designAndContrasts.R | 7 ------- tests/testthat/test_preprocessCounts.R | 3 --- 2 files changed, 10 deletions(-) diff --git a/tests/testthat/test_designAndContrasts.R b/tests/testthat/test_designAndContrasts.R index c3f9bed..438dd83 100644 --- 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 index 260e283..bfa0875 100644 --- a/tests/testthat/test_preprocessCounts.R +++ b/tests/testthat/test_preprocessCounts.R @@ -8,7 +8,6 @@ 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") }) @@ -16,7 +15,6 @@ test_that("Summarise matrix works nice", { 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") }) @@ -24,7 +22,6 @@ test_that("Test translate matrix with db", { test_that("Tmm normalization", { t <- countsToTmm(x = blmCounts) - expect_equal(class(t), "matrix") expect_equal(typeof(t), "double") })