tests/testthat/test-bind_table.R

In tidytlg: Create TLGs using the 'tidyverse'

mtcars2 <- mtcars %>%
  rownames_to_column(var = "USUBJID")

t1 <- univar(mtcars2,
             colvar = "gear",
             rowvar = "drat",
             tablebyvar = 'am',
             rowbyvar = "carb")

t2 <- univar(mtcars2,
             colvar = "gear",
             rowvar = "wt",
             tablebyvar = 'am',
             rowbyvar = "carb") %>%
  mutate(anbr = 'hi')

t3 <- univar(mtcars2,
             colvar = "gear",
             rowvar = "hp",
             tablebyvar = 'am',
             rowbyvar = "carb") %>%
  mutate(anbr = "7")

tbl1 <- bind_table(t1, t2, t3,
                   colvar = "gear",
                   rowbyvar = "carb")

tbl2 <- bind_table(t1, t2, t3,
                   colvar = "gear",
                   tablebyvar = "am",
                   rowbyvar = "carb")

test_that("anbr is assigned correctly", {
  expect_equal(tbl1$anbr, c(rep(1, nrow(t1)), rep(2, nrow(t2)), rep(7, nrow(t3))))
  expect_equal(tbl1$anbr, c(rep(1, nrow(t1)), rep(2, nrow(t2)), rep(7, nrow(t3))))
})

test_that("format variables are added", {
  expect_true(all(c("anbr", "indentme", "roworder", "newrows", "newpage") %in% names(tbl1)))
  expect_true(all(c("anbr", "indentme", "roworder", "newrows", "newpage") %in% names(tbl2)))
})

test_that("bind_table can handle non tidytlg tables", {

  adae <- cdisc_adae %>%
    filter(SAFFL == "Y", TRTEMFL == "Y") %>%
    rename(TRT01AN = TRTAN)

  adsl <- cdisc_adsl %>%
    filter(SAFFL == "Y")

  t1 <- adsl%>%
    freq(colvar = 'TRT01AN',
         rowvar = 'SAFFL',
         rowtext = 'Analysis set: Safety',
         statlist = statlist("n"))

  t2 <- adae %>%
    freq(denom_df = adsl,
         colvar = 'TRT01AN',
         rowvar ='TRTEMFL',
         rowtext = 'Subjects with 1 or more AEs',
         statlist = statlist("n (x.x%)"),
         subset = TRTEMFL == "Y")

  t3.1 <- data.frame(label = c("System organ class", "Preferred term"),
                     row_type = "HEADER")

  t3 <- adae %>%
    nested_freq(denom_df = adsl,
                colvar = 'TRT01AN',
                rowvar = 'AEBODSYS*AEDECOD',
                subset = TRTEMFL == "Y",
                statlist = statlist("n (x.x%)"))

  expect_silent(
    {
      bind_table(t1, t2, t3.1, t3,
                 colvar = "TRT01AN",
                 rowbyvar = "AEBODSYS")
    }
  )

})