tests/testthat/test-spanning.R

In rtables: Reporting Tables

context("column spanning")

test_that("column spanning works", {

    tbl <- rtable(
        header = c("Treatment\nN=100", "Comparison\nN=300", "otherstuff\nN=10"),
        format = "xx (xx.xx%)",
        rrow("A", c(104, .2), c(100, .4), rcell(15, format = "xx")),
        rrow("B", c(23, .4), c(43, .5), rcell(256, format = "xx")),
        rrow(),
    rrow("this is a very long section header"),
    rrow("estimate", rcell(55.23, "xx.xx", colspan = 2), rcell(12, format = "xx")),
    rrow("95% CI", indent = 1, rcell(c(44.8, 67.4), format = "(xx.x, xx.x)", colspan = 2), rcell(17, format = "xx")))


    rws <- collect_leaves(tbl)

    cirow <- tail(rws, 1)[[1]]

    spanned_values <- rtables:::spanned_values
    `spanned_values<-` <- rtables:::`spanned_values<-`

    expect_identical(length(spanned_values(cirow)), 3L)

    spanned_values(cirow) <- list(rcell(c(7, 15)), rcell(c(7, 15)), rcell(13, format = "xx"))

    expect_error({
        spanned_values(cirow) <- list(5, 7, 10)
    },
    "Got more than one unique")

    mylrow <- rrow("hiya!!!")

    expect_error({
        spanned_values(mylrow) <- list(5)
    }, "Label rows can't have non-null")
})