context("Options")
# make sure we return everything to normal after option tests!
original <- simrOptions()
test_that("getting options works", {
expect_identical(getSimrOption("nsim"), 10)
expect_is(simrOptions(), "list")
expect_named(simrOptions())
expect_identical(simrOptions("nsim", "progress"), list(nsim=10, progress=FALSE))
expect_identical(simrOptions(c("nsim", "progress")), list(nsim=10, progress=FALSE))
expect_identical(simrOptions(list("nsim", "progress")), list(nsim=10, progress=FALSE))
})
test_that("setting options works", {
newopts <- list(nsim=9, binom="logit")
# pass as list
expect_false(identical(simrOptions(names(newopts)), newopts))
oldopts <- simrOptions(newopts)
expect_identical(simrOptions(names(newopts)), newopts)
simrOptions(oldopts)
# pass as multiple arguments
expect_false(identical(simrOptions(names(newopts)), newopts))
oldopts <- do.call(simrOptions, newopts)
expect_identical(simrOptions(names(newopts)), newopts)
})
test_that("options are applied", {
simrOptions(nsim=5)
expect_equal(powerSim(fm1)$n, 5)
})
test_that("options are restored", {
simrOptions(original)
expect_identical(simrOptions(), original)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.