tests/testthat/test-vis-large.R

In ropensci/visdat: Preliminary Visualisation of Data

set.seed(2019-04-03-1104)
big_df <- matrix(rnorm(100000),
                 nrow = 1000,
                 ncol = 1000) %>%
  as.data.frame()

test_that("vis_dat and vis_miss throw warnings when the DF is above size",{
  cat("nrows = ",nrow(big_df), "ncols = ", ncol(big_df))
  expect_snapshot(
    error = TRUE,
    vis_dat(big_df)
    )
  expect_snapshot(
    error = TRUE,
    vis_miss(big_df)
    )
})