tests/testthat/test-eems.posterior.draws.R

In reems: Estimating Effective Migration Surfaces from Single Nucleotide Polymorphism Data

test_that("eems.posterior.draws writes output", {
    extdata_path <- system.file("extdata", package = "reems")
    eems_results <- file.path(extdata_path, "EEMS-example")
    outdir <- file.path(tempdir(), "path_out")
    dir.create(outdir, showWarnings = FALSE)
    name_figures <- file.path(outdir, "EEMS-grid_connected")

    eems.posterior.draws(
        mcmcpath = eems_results,
        plotpath = paste0(name_figures, "-posterior-draws"),
        longlat = TRUE, post.draws = 2
    )
    
    files <- list.files(outdir, full.names = TRUE)
    expect_length(files, 4)
    expect_true(all(file.info(files)$size > 0))
    unlink(outdir, recursive = TRUE, force = TRUE)
})