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