context("type_sum")
test_that("works with glimpse", {
foo <- as_override_type_sum(2011:2013)
expect_equal(type_sum(foo), "SC")
expect_output(glimpse(tibble(foo)), "foo <SC>")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.