tests/testthat/test-data_snapshot.R

In autoslider.core: Slide Automation for Tables, Listings and Figures

test_that("Test data snapshot", {
  testthat::skip_on_cran()

  eg_dataname <- data(package = "autoslider.core")$results[, "Item"] %>%
    .[grep("eg_", .)] %>%
    sort()
  for (datai in eg_dataname) {
    expect_snapshot(dim(get(datai)))
    expect_snapshot(head(get(datai)))
  }
})