Nothing
context("test partial eval")
test_that("namespace operators always evaluated locally",
{
expect_equal(partial_eval(quote(base::sum(1, 2))), 3)
expect_equal(partial_eval(quote(base:::sum(1, 2))), 3)
})
test_that("namespaced calls to dplyr functions are stripped",
{
expect_equal(partial_eval(quote(dplyr::n())), expr(n()))
})
test_that("use quosure environment for unevaluted formulas",
{
x <- 1
expect_equal(partial_eval(expr(~x)), ~1)
})
test_that("respects tidy evaluation pronouns",
{
x <- "X"
X <- "XX"
expect_equal(partial_eval(expr(.data$x)), expr(x))
expect_equal(partial_eval(expr(.data[["x"]])), expr(x))
expect_equal(partial_eval(expr(.data[[x]])), expr(X))
expect_equal(partial_eval(expr(.env$x)), "X")
expect_equal(partial_eval(expr(.env[["x"]])), "X")
expect_equal(partial_eval(expr(.env[[x]])), "XX")
})
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.