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)
})

Try the qckitfastq package in your browser

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

qckitfastq documentation built on Nov. 8, 2020, 5:24 p.m.