Nothing
testthat::context(".onLoad")
testthat::test_that(".onLoad works",{
bdpar:::.onLoad()
options <- BdparOptions$new()
op <- options$getAll()
testthat::expect_equal(bdpar.Options$getAll(), op)
testthat::expect_equal(class(getOption("loggerSettings")$logger[[1]]),
"Logger")
})
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.