context("Identity")
test_that("Identity of the identity", {
id <- function(x) x
i <- Identity$new(value = 3)
expect_equal( i$map(id), i)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.