# NOT RUN {
# generate some random plot
plot(rnorm(100))
# generate the string representing the command to add titles
tl <- genPlotTitleCmd("Sample Plot of", "No Particular Importance")
# cause the string to be executed as an R command
eval(parse(text=tl))
# }
Run the code above in your browser using DataLab