Nothing
## -----------------------------------------------------------------------------
library("wrapr")
variable <- "angle"
sinterp(
'variable name is .(variable)'
)
## -----------------------------------------------------------------------------
angle = 1:10
variable_name <- as.name("angle")
if(requireNamespace("graphics", quietly = TRUE)) {
evalb(
plot(x = .(-variable_name),
y = sin(.(-variable_name)))
)
}
## -----------------------------------------------------------------------------
angle = 1:10
variable_string <- "angle"
if(requireNamespace("graphics", quietly = TRUE)) {
evalb(
plot(x = .(-variable_string),
y = sin(.(-variable_string)))
)
}
## -----------------------------------------------------------------------------
plotb <- bquote_function(graphics::plot)
if(requireNamespace("graphics", quietly = TRUE)) {
plotb(x = .(-variable),
y = sin(.(-variable)))
}
## -----------------------------------------------------------------------------
f <- function() {
sin
}
# pipe 5 to the value of f()
# the .() says to evaluate f() before the
# piping
5 %.>% .(f())
# evaluate "f()"" with . = 5
# not interesting as "f()"" is "dot free"
5 %.>% f()
## -----------------------------------------------------------------------------
attr(f, 'dotpipe_eager_eval_function') <- TRUE
# now evalutates pipe on f() result.
5 %.>% f()
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.