context("Check collect_environment_recursively")
hi <- "bcuiwcuow"
test_that("Check whether collect_environment_recursively works", {
collect <- as.list(qsub:::collect_environment_recursively(environment(), "hi"))
expect_equal(collect$hi, hi)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.