tests/test_make_report_table.R

In fishsciences/elaphos: Data Package For CFS E-DNA Experiments

library(elaphos)
qpcr_file = system.file("test_qpcr_data/2022-01-18_R2_BHOO_P_2.xls", package = "elaphos")

if(file.exists(qpcr_file)){
    d2 = read_qpcr(qpcr_file, Experiment = "test")
    
    dd = d2
    dd$Target = "test"
    d2 = rbind(d2, dd) # so there are multiple targets
    ans = elaphos:::make_detection_table(d2)
    
    stopifnot(all(colnames(ans) %in% c("FilterID", "BHOO", "test")))
    # make sure no filterids have been added
    stopifnot(all(ans$FilterID %in% d2$FilterID))
    # make sure no filterIDs have been dropped
    stopifnot(all(d2$FilterID %in% ans$FilterID))
}