test_that("show option works", {
expect_output(
r(function() print("hello"), show = TRUE),
"hello"
)
gc()
})
test_that("callbacks work", {
out <- NULL
r(function() cat("hello\n"), callback = function(x) out <<- x)
expect_equal(out, "hello")
gc()
})
test_that("show and callbacks at the same time", {
out <- NULL
expect_output(
r(
function() cat("hello\n"),
show = TRUE,
callback = function(x) out <<- x
),
"hello"
)
expect_equal(out, "hello")
gc()
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.