tests/testthat/test_soggiImport.R

library(profileplyr)
library(soGGi)
context("Test import from soGGi")
data(chipExampleBig)
p <- as_profileplyr(chipExampleBig,names = "name")
expect_that(is(p,"profileplyr"),is_true())
expect_that(length(p) == 201,is_true())
expect_that(ncol(p) == 300,is_true())
expect_that(nrow(sampleData(p)) == 10,is_true())
expect_that(params(p)$rowGroupsInUse == "sgGroup",is_true())

Try the profileplyr package in your browser

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

profileplyr documentation built on Nov. 8, 2020, 8:12 p.m.