Nothing
context("outOfPackage")
o <- list(
Accumulator_R6$new(),
new('Person_S4', name = 'neonira'),
new('Person_RC', name = 'neonira')
)
o[[3]]$setName('Fabien')
o[[3]]$setAge(as.integer(runif(1, 25, 30)))
test_that("outOfPackage - coverage", {
expect_equal(guardExecution( 1, FALSE), 1)
expect_equal(o[[1]]$add(1), 1)
expect_output(show(o[[2]]))
expect_equal(name(o[[2]]), 'neonira')
expect_equal(o[[3]]$name, 'Fabien')
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.