tests/testthat/test_organizeReads.R

test_that("organizeReads", {
  data(rlist, package="trellis")
  df.list <- organizeReads(rlist)
  expect_is(df.list, "list")
  expect_is(df.list[[1]], "data.frame")
  nms <- sapply(df.list, function(x) x$rid[1])
  expect_identical(nms, names(rlist))
})
cancer-genomics/trellis documentation built on Feb. 2, 2023, 7:04 p.m.