tests/testthat/test-add_p.tbl_continuous.R

In ddsjoberg/gtsummary: Presentation-Ready Data Summary and Analytic Result Tables

skip_on_cran()

test_that("add_p.tbl_continuous() works", {
  expect_snapshot(
    tbl_continuous(
      data = trial,
      variable = age,
      by = trt,
      include = grade
    ) %>%
      add_p() %>%
      as.data.frame()
  )
  expect_snapshot(
    tbl_continuous(
      data = trial,
      variable = age,
      include = grade
    ) %>%
      add_p() %>%
      as.data.frame()
  )
  expect_snapshot(
    tbl_continuous(
      data = trial,
      variable = age,
      include = trt
    ) %>%
      add_p(everything() ~ "t.test") %>%
      as.data.frame()
  )
  expect_snapshot(
    tbl_continuous(
      data = trial,
      variable = age,
      include = trt
    ) %>%
      add_p(everything() ~ "wilcox.test") %>%
      as.data.frame()
  )
  expect_snapshot(
    tbl_continuous(
      data = trial,
      variable = age,
      include = trt
    ) %>%
      add_p(everything() ~ "lme4", group = "stage") %>%
      as.data.frame()
  )




  expect_message(
    tbl_continuous(
      data = trial,
      variable = age,
      include = trt,
      by = grade
    ) %>%
      add_p(everything() ~ "wilcox.test")
  )
  expect_error(
    tbl_continuous(
      data = trial,
      variable = age,
      include = trt,
      by = grade
    ) %>%
      add_p(everything() ~ "wilcox.test.NOT.A.TEST") %>%
      as.data.frame()
  )
})