test_that("cnames work with different operations", {
p = makeNumericVectorParam(id = "x", len = 2L, lower = 0, upper = 1, cnames = c("a", "b"))
x = sampleValue(p)
expect_equal(names(x), c("a", "b"))
xs = sampleValues(p, 2L)
lapply(xs, function(x) expect_equal(names(x), c("a", "b")))
expect_true(isFeasible(p, x))
expect_false(isFeasible(p, c(0.1, 0.1)))
ps = makeParamSet(p)
des = generateDesign(2, ps)
xs = dfRowsToList(des, ps)
lapply(xs, function(x) expect_equal(names(x$x), c("a", "b")))
p = makeIntegerVectorParam(id = "x", len = 2L, lower = 0, upper = 10, cnames = c("a", "b"))
x = setValueCNames(p, c(1L, 1L))
expect_equal(x, c(a = 1L, b = 1L))
p = makeIntegerParam(id = "x")
x = setValueCNames(p, 1L)
expect_equal(x, 1L)
})
test_that("cnames work with dep params", {
ps = makeParamSet(
makeDiscreteParam("x", values = c("a", "b")),
makeNumericVectorParam("y", lower = 1, upper = 2, len = 2L,
requires = quote(x == "a"), cnames = c("xxx", "yyy"))
)
x = setValueCNames(ps, list(x = "a", y = c(1, 2)))
expect_equal(x, list(x = "a", y = c(xxx = 1, yyy = 2)))
x = setValueCNames(ps, list(x = "b", y = NA_real_))
expect_equal(x, list(x = "b", y = NA_real_))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.