tests/testthat/test_convert_genes.R

library(geneSpeciesTranslation)

df <- read.csv('../test-df.csv')
conversion_file_path <- '../mouse-human-genes.csv'

test_that("convert_genes test", {
  expect_equal(convert_genes(df, conversion_file_path, "MouseSymbol", "HumanSymbol"))
  expect_equal(convert_genes_human_to_mouse(df, ))
})
AlexandreGaubil/geneSpeciesTranslation documentation built on Jan. 2, 2022, 7:19 p.m.