Nothing
test_that("mcmcrs", {
mcmcrs <- mcmcrs(mcmcr_example, mcmcr_example)
expect_identical(length(mcmcrs), 2L)
expect_identical(names(mcmcrs), c("mcmcr1", "mcmcr2"))
mcmcrs <- mcmcrs(mc1 = mcmcr_example, mc2 = mcmcr_example)
expect_identical(names(mcmcrs), c("mc1", "mc2"))
})
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.