tests/testit/test-developer-as_gt.R

In gsDesign2: Group Sequential Design with Non-Constant Effect

assert("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)
  (nrow(z1$`_footnotes`) %==% 1L)
  z2 <- as_gt(y, footnote = FALSE)
  (nrow(z2$`_footnotes`) %==% 0L)

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

})