Nothing
test_that("print.egor works with grouped_by()", {
e <- make_egor(12, 15)
expect_error(e %>%
group_by(country), NA)
})
# options(
# egor.print.rows.active.level = 5,
# egor.print.rows.inactive.level = 2,
# egor.print.switch.active.level.to.top = FALSE)
# activate(e, aatie)
# activate(e, alter)
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.