test_that("default settings are returned as list", {
fmls <- as.list(formals(settings.gq))
expect_equal(settings.gq(), fmls)
})
test_that("settings can be changed", {
expect_equal(settings.gq(quad_points = 3), list(quad_points = 3))
expect_equal(settings.gq(3), list(quad_points = 3))
})
test_that("settings function creation works", {
my_settings <- function(opt_1 = 1) make_settings()
expect_equal(my_settings(), list(opt_1 = 1))
expect_equal(my_settings(opt_1 = 2), list(opt_1 = 2))
})
test_that("nesting function works as expected",{
expect_equal(nest_lst_by_name(list(gq.quad_points = 3, gq.option = TRUE, mc.option = FALSE, option = "test")),
list(option = "test", gq = list(quad_points = 3, option = TRUE), mc = list(option = FALSE)))
})
test_that("this", {
my_settings <- function(alg1.opt1 = 1, alg1.opt2 = 2) make_settings()
alg1_settings <- function(opt1 = 1, opt2 = 2) make_settings()
my_settings2 <- function(alg1 = alg1_settings()) make_settings()
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.