| get_test | R Documentation |
The returned function can be executed. If that is done within a testthat::Reporter, the results will be reported accordingly. Without reporter, the test runs silently if successful and stops if it fails.
get_test(object)
object |
to which the test is attached |
the test (function)
f <- function(x) x^2
test(f) <- function() {
context("f")
test_that("correct result for complex number", {
expect_equal(f(1i), -1 + 0i)
})
}
get_test(f)
library(testthat)
## execute the test
get_test(f)()
with_reporter("summary", get_test(f)())
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.