tests/testthat/test-inline_text.table1.R

context("test-inline_text.fmt_table1")

test_that("no errors/warnings from mtcars", {
  t1 <- fmt_table1(mtcars)
  t2 <- fmt_table1(mtcars, by = "am")
  expect_error(inline_text(t1, "mpg"), NA)
  expect_error(inline_text(t1, "cyl:4"), NA)
  expect_error(inline_text(t2, "mpg:1"), NA)
  expect_error(inline_text(t2, "cyl:4:1"), NA)
})
ddsjoberg/gtsummary-v0.1 documentation built on June 4, 2019, 7:48 a.m.