Nothing
test_that("condense_control works", {
ctrl <- control_parsnip()
expect_equal(
condense_control(ctrl, ctrl),
ctrl
)
ctrl$allow_par <- TRUE
ctrl$catch <- TRUE
expect_equal(
condense_control(ctrl, control_parsnip()),
control_parsnip(catch = TRUE)
)
ctrl$anotherone <- 2
expect_snapshot(error = TRUE,
condense_control(control_parsnip(), ctrl)
)
})
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.