Nothing
test_that("eval_*() respects proxy settings", {
foo <- structure(list(), class = "foo")
local_bindings(
tidyselect_data_proxy.foo = function(x) {
data.frame(x = 1, y = 2)
},
tidyselect_data_has_predicates.foo = function(x) {
FALSE
},
.env = globalenv()
)
expect_equal(eval_relocate(quote(everything()), foo), c(x = 1, y = 2))
expect_equal(eval_select(quote(everything()), foo), c(x = 1, y = 2))
expect_equal(eval_rename(quote(c(x = everything())), foo), c(x1 = 1, x2 = 2))
expect_snapshot(error = TRUE, {
eval_select(quote(where(is.numeric)), foo)
eval_rename(quote(c(x = where(is.numeric))), foo)
eval_relocate(quote(where(is.numeric)), foo)
eval_relocate(quote(x), before = quote(where(is.numeric)), foo)
eval_relocate(quote(x), after = quote(where(is.numeric)), foo)
})
})
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.