Nothing
test_that("general test", {
test_node <- node("bmi", type="identity",
formula= ~ age / 2 + age^2 - ifelse(sex, 2, 3) + 2)
out <- str_eq_identity(test_node)
expect_equal(out, "bmi ~ age/2 + age^2 - ifelse(sex, 2, 3) + 2")
})
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.