Nothing
context("Testing options")
test_that("'ddhazard_max_threads' defaults to 1",{
old_opt <- options()
options(ddhazard_max_threads = NULL)
with(environment(ddhazard), .onLoad())
expect_equal(getOption('ddhazard_max_threads'), 1)
options(old_opt)
})
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.