tests/testthat/test-dataIntegration.R

context("Data Integration")

# Data --------------------------------------------------
eset <- suppressMessages(SDY269$getGEMatrix())
pheno <- Biobase::pData(eset)
hai <- SDY269$getDataset("hai")


# Tests --------------------------------------------------------
test_that("participant_id in both eset and hai", {
  expect_true("participant_id" %in% colnames(hai) & "participant_id" %in% colnames(pheno))
})

Try the ImmuneSpaceR package in your browser

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

ImmuneSpaceR documentation built on Dec. 21, 2020, 2:01 a.m.