tests/testthat/test_reconstruct.R

In ianbatesncc/aafractions.ncc: Alcohol Attributable Fractions Lookup Tables

#
# test_reconstruct
#

context("reconstruct")
library("aafractions.ncc")


test_that("reconstruct works", {

    t1 <- reconstruct(verbose = FALSE)

    expect_is(t1, "data.frame")

})

test_that("reconstruct all versions and types", {

    these_versions <- eval(formals(reconstruct)[[1]])
    # c("aaf_2017_phe", "aaf_2014_ljucph", "aaf_2008_ljucph", "aaf_2007_ni39")
    these_analysistypes <- eval(formals(reconstruct)[[2]])
    # c("morbidity", "mortality")

    t2 <- purrr::cross_df(
        list(
            this_version = these_versions
            , this_analysistype = these_analysistypes
        )
    ) %>%
        mutate(tname = paste(this_version, this_analysistype, sep = "__")) %>%
    {mapply(
        function(v0, v1, v2){list(reconstruct(v1, v2, verbose = FALSE))}
        , .$tname, .$this_version, .$this_analysistype
    )}

    expect_length(t2, length(these_versions) * length(these_analysistypes))

})


test_that("reconstruct can return molten data", {

    t1_cast <- reconstruct(molten = FALSE, verbose = FALSE)
    t1_molten <- reconstruct(molten = TRUE, verbose = FALSE)

    d1_cast <- dim(t1_cast)
    d1_molten <- dim(t1_molten)

    # More rows in molten
    # fewer columns in molten

    expect_gt(d1_molten[1], d1_cast[1])
    expect_lt(d1_molten[2], d1_cast[2])

})