# NOT RUN {
doc <- read_docx()
if( capabilities(what = "png") )
doc <- body_add_plot(doc,
value = plot_instr(
code = {barplot(1:5, col = 2:6)}),
style = "centered" )
print(doc, target = tempfile(fileext = ".docx") )
# }
Run the code above in your browser using DataLab