tests/testthat/test-add_stat_label.R

In ddsjoberg/gtsummary-v0.1: Presentation-Ready Data Summary Tables

context("test-add_stat_label")

test_that("no errors/warnings with standard use", {
  expect_error(mtcars %>% fmt_table1(by = "am") %>% add_stat_label(iqr = TRUE), NA)
  expect_warning(mtcars %>% fmt_table1(by = "am") %>% add_stat_label(iqr = TRUE), NA)

  expect_error(mtcars %>% fmt_table1(by = "am") %>% add_stat_label(iqr = FALSE) %>% add_comparison(), NA)
  expect_warning(mtcars %>% fmt_table1(by = "am") %>% add_stat_label(iqr = FALSE) %>% add_comparison(), NA)

  expect_error(mtcars %>% fmt_table1(by = "am") %>% add_overall() %>% add_stat_label(iqr = TRUE), NA)
  expect_warning(mtcars %>% fmt_table1(by = "am") %>% add_overall() %>% add_stat_label(iqr = TRUE), NA)
})