tests/testthat/test_file_loading_and_checking.R

context("")

write.table(DNABarcodeCompatibility::IlluminaIndexesRaw ,
            textfile <- tempfile(),
            row.names = FALSE, col.names = FALSE, quote=FALSE)

test_that("file_loading_and_checking loads file", {
    expect_is(file_loading_and_checking(textfile), "data.frame")
})

Try the DNABarcodeCompatibility package in your browser

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

DNABarcodeCompatibility documentation built on Nov. 8, 2020, 5:36 p.m.