tests/testthat/test-findPathwaysByText.R

library(rWikiPathways)
context("Search")

test_that("find by keyword", {
    pathways = findPathwaysByText("cancer")
    expect_gt(length(pathways),0)
})

test_that("find by datanode label (again)", {
    pathways = findPathwaysByText(query="5-FU")
    expect_gt(length(pathways), 0)
})

test_that("find by multiple keywords", {
    pathways = findPathwaysByText(query=c("cancer", "5-FU"))
    expect_gt(length(pathways), 0)
})

Try the rWikiPathways package in your browser

Any scripts or data that you put into this service are public.

rWikiPathways documentation built on Feb. 28, 2021, 2:01 a.m.