Nothing
test_that("formulate", {
f = formulate("Species", c("Sepal.Width", "Petal.Length"))
expect_formula(f)
expect_null(environment(f))
x = extract_vars(f)
expect_set_equal(x$lhs, "Species")
expect_set_equal(x$rhs, c("Sepal.Width", "Petal.Length"))
})
test_that("formulate_multioutput", {
f = formulate(c("Pepal.Width", "Petal.Length"), c("Sepal.Width", "Sepal.Length"))
expect_formula(f)
expect_null(environment(f))
x = extract_vars(f)
expect_set_equal(x$lhs, c("Pepal.Width", "Petal.Length"))
expect_set_equal(x$rhs, c("Sepal.Width", "Sepal.Length"))
})
test_that("formulate quotes", {
f = formulate("y", "a-b")
str = as.character(f)
expect_character(str, len = 3)
expect_equal(str[3], "`a-b`")
})
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.