# NOT RUN {
# angle = 1:10
# variable <- as.name("angle")
# plotb <- bquote_function(graphics::plot)
# plotb(x = .(variable), y = sin(.(variable)))
f1 <- function(x) { substitute(x) }
f2 <- bquote_function(f1)
arg <- as.name("USER_ARG")
f2(arg) # returns arg
f2(.(arg)) # returns USER_ARG
# }
Run the code above in your browser using DataLab