tests/testthat/test-return.R

In CrossVA: Verbal Autopsy Data Transformation for InSilicoVA and InterVA5 Algorithms

# Test that the odk2openVA returns a data frame of the appropriate size
# with no factors (which may cause problems with openVA).

context("Test return object.")

test_that("odk2openVA_v151 returns data frame with the right characteristics", {

    record_f_name151 <- system.file("sample",
                                    "who151_odk_export.csv",
                                    package = "CrossVA")
    records151 <- read.csv(record_f_name151, stringsAsFactors = FALSE)
    output151 <- odk2openVA(records151)

    expect_true(is.data.frame(output151))
    expect_equal(ncol(output151), 354)
    for (i in 1:354) {
        expect_false(is.factor(output151[, i]))
    }
})

test_that("odk2openVA_v141 returns data frame with the right characteristics", {

    record_f_name141 <- system.file("sample",
                                    "who141_odk_export.csv",
                                    package = "CrossVA")
    records141 <- read.csv(record_f_name141, stringsAsFactors = FALSE)
    output141 <- odk2openVA(records141)

    expect_true(is.data.frame(output141))
    expect_equal(ncol(output141), 354)
    for (i in 1:354) {
        expect_false(is.factor(output141[, i]))
    }
})

test_that("odk2openVA_2014 returns data frame with the right characteristics", {

    record_f_name2014 <- system.file("sample",
                                    "who2014_odk_export.csv",
                                    package = "CrossVA")
    records2014 <- read.csv(record_f_name2014, stringsAsFactors = FALSE)
    output2014 <- odk2openVA(records2014)

    expect_true(is.data.frame(output2014))
    expect_equal(ncol(output2014), 354)
    for (i in 1:354) {
        expect_false(is.factor(output2014[, i]))
    }
})