Nothing
context("Check correct behaviour for fqName")
fl <- system.file("extdata", "ATTG_R1_fastqc.zip", package = "ngsReports")
fd <- FastqcDataList(fl)
test_that("Correct values are returned",{
expect_equal(fqName(fd), "ATTG_R1.fastq")
})
test_that("Incorrect values cannot be assigned",{
expect_error(fqName(fd) <- 1)
expect_error(fqName(fd) <- letters)
})
test_that("Correct values cannot be assigned",{
fqName(fd) <- "a"
expect_equal(fqName(fd), "a")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.