# NOT RUN {
library(ggplot2)
Plots<-list(plot1=function()plot(hp~wt,data=mtcars,col=cyl),
plot2=function()print(ggplot(mtcars,aes(x=wt,y=hp,col=as.factor(cyl)))+geom_point()))
addPlots(
paste(examplePath(),'templates/templatePlots.docx',sep = ''),
paste(tempdir(),'/resultPlots.docx',sep = ''),
Plots,height=4)
# }
Run the code above in your browser using DataLab