tests/testthat/test_translate_matrix.R

In martingarridorc/biokit: Toolkit for the automatic analysis of omics data

library(org.Hs.eg.db)
data("sarsCovData")

# prepare matrix to test
testMat <- sarsCovMat[1:100,]
translatorDf <- data.frame(from = c(rownames(testMat), rownames(testMat)[1:5]), to = as.character(c(1:90, 1:10, 91:95)))

t <- translateMatrix(mat = testMat, df = translatorDf, sourceKey = "from", targetKey = "to")
t2 <- translateMatrixWithDb(testMat, db = org.Hs.eg.db, sourceKey = "SYMBOL", targetKey = "ENTREZID")

test_that("Translator functions work nice", {

  expect_equal(nrow(t), 95)
  expect_equal(class(t2), c("matrix", "array"))

})