tests/testthat/test-plot_corr.R

In neurogenomics/EpiCompare: Comparison, Benchmarking & QC of Epigenomic Datasets

test_that("plot_corr works", {
    
    data("CnR_H3K27ac")
    data("CnT_H3K27ac")
    data("encode_H3K27ac")
    peakfiles <- list(CnR_H3K27ac=CnR_H3K27ac, CnT_H3K27ac=CnT_H3K27ac)
    reference <- list("encode_H3K27ac" = encode_H3K27ac)

    cp_out <- plot_corr(peakfiles = peakfiles,
                        reference = reference,
                        genome_build = "hg19", 
                        workers = 1,
                        bin_size = 5000)
    testthat::expect_equal(nrow(cp_out$data), 3)
    testthat::expect_equal(round(mean(cp_out$data, na.rm=TRUE),2), 0.63)
    testthat::expect_true(all(c("data","corr_plot") %in% names(cp_out)))
    testthat::expect_true(all(c("CnR_H3K27ac","CnT_H3K27ac",
                                  "encode_H3K27ac") %in% colnames(cp_out$data)))
    testthat::expect_true(methods::is(cp_out$corr_plot,"gg"))
})