tests/testthat/test-add_titles_footnotes.R

In clinify: Clinical Table Styling Tools and Utilities

test_that("Error messages", {
  ct <- clintable(mtcars)

  expect_error(
    clin_add_titles(ct, ls = list("x"), ft = new_title_footnote(list("x"))),
    "One of"
  )

  expect_error(
    clin_add_titles(ct, ls = list(c("1", "2", "3"))),
    "All sublists must"
  )
})


test_that("Titles and footnotes can be attached", {
  ct <- clintable(mtcars) %>%
    # Add titles here is using new_header_footer to allow flextable functions
    # to customzie the titles block
    clin_add_titles(
      ft = new_title_footnote(
        list(
          c("left aligned", "right aligned"),
          c("Single element")
        ),
        "titles"
      ) %>%
        border_remove()
    ) %>%
    # Adding footnotes is just using a list of lists instead to show how it can
    # be automatically converted
    clin_add_footnotes(
      list(
        c("left aligned", "right aligned"),
        c("", "Single element")
      )
    )

  expect_true(all(c("titles", "footnotes") %in% names(ct$clinify_config)))
  out <- clintable_as_html(ct)

  # Need to improve this but for now, make sure that the output contains 3
  # tables - one for the header, one for the footer, and one for the table body
  html_out <- xml2::read_html(out[[3]])
  expect_equal(
    length(xml2::xml_find_all(html_out, "body//*/table")),
    3
  )
})