test_pipe_quote_name <- function() {
q1 <- x %.>% quote
e1 <- quote(x)
expect_equal(e1, q1)
x <- -5
q2 <- x %.>% quote
expect_equal(e1, q2)
v0 <- x %.>% abs
expect_equal(5, v0)
# would like x %.>% substitute to equal
# as.name("x"). Instead we have the slightly weaker
# (x %.>% substitute) == substitute(x)
# as both substitute quotes or un-quotes depending
# if the eval environment is Global or not.
vA <- substitute(x) # -5 in test, as.name("x") if run in global env
vB <- x %.>% substitute # -5 in test, as.name("x") if run in global env
expect_equal(vA, vB)
f1 <- function() {
x <- -5
v1 <- substitute(x)
v1
}
v1 <- f1()
expect_equal(-5, v1)
f2 <- function() {
x <- -5
v2 <- x %.>% substitute
v2
}
v2 <- f2()
expect_equal(-5, v2)
expect_equal(v1, v2)
invisible(NULL)
}
test_pipe_quote_name()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.