tests/testthat/test-add_hpo_id.R

test_that("add_hpo_id works", {

  phenotype_to_genes <- load_phenotype_to_genes()
  phenos <- unique(phenotype_to_genes[,-c("hpo_id")])
  phenos <- add_hpo_id(phenos=phenos)
  testthat::expect_equal(sum(is.na(phenos$hpo_id)),0)
})
neurogenomics/HPOExplorer documentation built on Aug. 24, 2024, 1:39 a.m.