tests/testthat/test-plot_celltype_associations.r

In NathanSkene/MAGMA_Celltyping: Find Causal Cell-Types Underlying Complex Trait Genetics

test_that("plot_celltype_associations works", {
  
    res <- MAGMA.Celltyping::enrichment_results
    ctAssocs <- res[[1]]$ctAssocsLinear
    ctd <- ewceData::ctd()
    wd <- getwd()
    
    figs <- MAGMA.Celltyping::plot_celltype_associations(
        ctAssocs = ctAssocs,
        ctd = ctd, 
        figsDir = wd)
    testthat::expect_length(figs,2)
    testthat::expect_true(methods::is(figs[[1]],"gg"))
    
    #### Bind together as one plot ####
    figs2 <- MAGMA.Celltyping::plot_celltype_associations(
        ctAssocs = ctAssocs,
        ctd = ctd,
        figsDir = wd,
        bind_plots = TRUE, 
        show_plot = FALSE)
    testthat::expect_true(methods::is(figs2,"gg"))
    
    
    
    figs3 <- MAGMA.Celltyping::plot_celltype_associations(
        ctAssocs = ctAssocs,
        ctd = ctd,
        figsDir = wd,
        plotDendro = FALSE,
        bind_plots = TRUE, 
        show_plot = FALSE)
    testthat::expect_true(methods::is(figs3,"gg"))
})