Nothing
context("extractObjectOPInformation")
source_file <- 'sample-classes.R'
source_package <- 'wyz.code.offensiveProgramming'
f <- findFilesInPackage(source_file, source_package)
stopifnot(length(f) == 1)
source(f[1])
test_that("extractObjectOPInformation", {
expect_error(extractObjectOPInformation(EmptyR6$new(), 'kkkfun'))
})
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.