tests/testthat/test-getOntologyTerms.R

In egonw/rwikipathways: rWikiPathways - R client library for the WikiPathways API

library(rWikiPathways)
context("Annotation")

test_that("get by WPID", {
    terms = getOntologyTerms('WP554')
    expect_gt(length(terms), 0)
})

test_that("find by ontology term", {
    pathways = getPathwaysByOntologyTerm('PW:0000045')
    expect_gt(length(pathways), 0)
})

test_that("find by parent ontology term", {
    pathways = getPathwaysByParentOntologyTerm('PW:0000045')
    expect_gt(length(pathways), 0)
})