tests/testthat/test_dimensions.R

testthat::test_that("dimensions",{
  #check row numbers and column numbers
  fseq <- seqTools::fastqq(system.file("extdata", "10^5_reads_test.fq.gz", package = "qckitfastq"))
  testthat::expect_equal(dimensions(fseq,"positions"),100)
  testthat::expect_equal(dimensions(fseq,"reads"),25000)
})
compbiocore/qckitfastq documentation built on Sept. 20, 2019, 9:30 a.m.