```
# library(testthat); devtools::load_all()
context("examples")
test_that("bunch() example", {
expect_equal(bunch(), character(0))
grow(rbind, from = "base")
expect_equal(bunch(), "%rbind%")
myfun = function(x, y) x + y
env = new.env()
grow(myfun, to = env)
expect_equal(bunch(), "%rbind%")
expect_equal(bunch(from = env), "%myfun%")
})
test_that("grow() example", {
grow(rbind, from = "base")
expect_equal(nrow(sleep), 20)
longer = sleep %rbind% sleep %rbind% sleep
expect_equal(nrow(longer), 60)
})
test_that("functions() example", {
expect_equal(functions(), character(0))
myfun = function(x, y) x + y
expect_equal(functions(), "myfun")
expect_true(is.character(functions("knitr")))
expect_true(length(functions("knitr")) > 0)
detach("package:knitr")
})
```

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.