# NOT RUN {
# }
# NOT RUN {
rtf<-RTF("test_addTrellisObject.doc",width=8.5,height=11,font.size=10,omi=c(1,1,1,1))
if(require(lattice) & require(grid)) {
# multipage trellis object
p2<-xyplot(uptake ~ conc | Plant, CO2, layout = c(2,2))
addTrellisObject(rtf,trellis.object=p2,width=8,height=4,res=300, rotate=90)
}
done(rtf)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab