tests/testthat/test-getXrefList.R

library(rWikiPathways)
context("Pathway")

test_that("get WP2338 Xrefs", {
  xrefs = getXrefList("WP2338", "S")
  expect_true("Q9UPY3" %in% xrefs)
})

test_that("get WP2338 (again)", {
  xrefs = getXrefList(pathway="WP2338", systemCode="S")
  expect_true("Q9UPY3" %in% xrefs)
})

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.