Nothing
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)
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.