# NOT RUN {
if(requireNamespace('graphics', quietly = TRUE)) {
angle = 1:10
variable <- as.name("angle")
fn_name <- 'sin'
evalb( plot(x = .(variable), y = .(-fn_name)(.(variable))) )
}
# }
Run the code above in your browser using DataLab