tests/testthat/test-developer-as_gt.R

In gsDesign2: Group Sequential Design with Non-Constant Effect

test_that("footnote=FALSE removes footnote", {

  # fixed design
  x <- fixed_design_ahr(
    enroll_rate = define_enroll_rate(duration = 18, rate = 1),
    fail_rate = define_fail_rate(duration = 18, fail_rate = 0.1, dropout_rate = 0.001)
  )
  y <- summary(x)
  z1 <- as_gt(y)
  expect_equal(nrow(z1$`_footnotes`), 1)
  z2 <- as_gt(y, footnote = FALSE)
  expect_equal(nrow(z2$`_footnotes`), 0)

  # gs design
  x <- gs_design_ahr()
  y <- summary(x)
  z1 <- as_gt(y)
  expect_equal(nrow(z1$`_footnotes`), 2)
  z2 <- as_gt(y, footnote = FALSE)
  expect_equal(nrow(z2$`_footnotes`), 0)

})