library(magrittr)
source('utils.r')
context( "Additional Classes")
test_that( "Additional Classes", {
x <- rnorm(5)
# x %<>% base.tools::append_class( "something")
x %<>% sticky()
x %>% class %>% testthat::expect_equal(c('sticky', 'numeric' ) )
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.