tests/testthat/test-build.R

In Tplyr: A Traceability Focused Grammar of Clinical Data Summary

tab <- tplyr_table(iris, Species) %>%
  add_layer(
    group_count(Petal.Width)
  ) %>%
  add_total_group() %>%
  add_treat_grps("V Species" = c("versicolor", "virginica"))
build(tab)

test_that("build.tplyr_table preprocesses data appropriately", {
  expect_named(tab, c("shift_layer_formats", "target", "count_layer_formats", "pop_data", "pop_where", "cols",
  "max_n_width", "table_where", "desc_layer_formats", "max_layer_length", "treat_var",
  "built_target", "built_pop_data", "header_n", "pop_treat_var", "layers", "treat_grps"))
  expect_equal(nrow(tab$built_target[tab$built_target$Species == "Total", ]), 150)
  expect_equal(nrow(tab$built_target[tab$built_target$Species == "V Species", ]), 100)
})

test_that("build works with default options", {
  # Simple count layer
  result <- tplyr_table(mtcars, gear) %>%
    add_layer(group_count(cyl)) %>%
    build()

  expect_s3_class(result, "data.frame")
  expect_true(nrow(result) > 0)
})

test_that("build works with metadata=TRUE", {
  result <- tplyr_table(mtcars, gear) %>%
    add_layer(group_count(cyl)) %>%
    build(metadata = TRUE)

  expect_s3_class(result, "data.frame")
  expect_true("row_id" %in% names(result))
})