tests/testthat/test-compare_rtables.R

In rtables: Reporting Tables

test_that("compare_rtables", {

    lyt <- make_big_lyt()

    ## hack to force all counts to "happen to be different"
    dat <- rawdat[- which(rawdat$ARM == "ARM2")[1:9], ]
    tab <- build_table(lyt, dat)
    cmp <- compare_rtables(tab, tab)
    expect_true(all(cmp == "."))

    cmp_no4col <- compare_rtables(tab, tab[, -4])
    expect_true(all(cmp_no4col[, 4] == "+"))
    expect_true(all(cmp_no4col[, 1:3] == "."))

    rdf <- make_row_df(tab)
    ## its not smart enought o shift columns yet...
    ## tol = .01 need for the medians to be different
    cmp_no3col <- compare_rtables(tab[, -3], tab, tol = .01)
    expect_true(all(cmp_no3col[, 1:2] == "."))

    ## not checking ContentRows because of unfortunate identical counts in cols 3 and 4 :(
    expect_true(all(cmp_no3col[rdf$node_class != "LabelRow", 3] == "X"))
    expect_true(all(cmp_no3col[, 4] == "-"))
    cmp_no3colb <- compare_rtables(tab[, -3], tab, structure = TRUE)
    expect_true(all(cmp_no3colb[, 1:2] == "."))
    expect_true(all(cmp_no3colb[, 3] == "C"))
    expect_true(all(cmp_no3colb[, 4] == "-"))

    cmp_bothsubset <- compare_rtables(tab[-5, ], tab[, -2], tol = .01)

    expect_true(all(cmp_bothsubset[28, ] == "-"))
    expect_true(all(cmp_bothsubset[-28, 4] == "+"))
    expect_true(all(cmp_bothsubset[5:28, ] != "."))

    stupid_cmp <- compare_rtables(tab, tab[, -1], tol = 1e5)
    expect_true(all(stupid_cmp[, 1:3] == "."))


})