test_that("formula_to_1arg_function works", {
f <- formula_to_1arg_function(~.x + 3)
expect_equal(3.5, f(0.5))
expect_error(formula_to_1arg_function('a'), 'character')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.