tests/testthat/test-data_snapshot.R

test_that("Test data snapshot", {
  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)))
  }
})

Try the autoslider.core package in your browser

Any scripts or data that you put into this service are public.

autoslider.core documentation built on April 4, 2025, 2:05 a.m.