如何在ReporteRs :: addPlot中设置字体类型和名称？

Question

下面的代码创建一个图并使用美妙的ReporteRs包将其嵌入到Word文档中。该代码会生成警告：

"argument fontname is deprecated; please usefontname_serif, fontname_sans,fontname_mono,fontname_symbol instead" 

我一直无法弄清楚如何指定特定的字体，例如， “英语字体格式一种”。谢谢！

library(ReporteRs) 
library(magrittr) 

x <- rnorm(100); y <- (1.5 * x) + rnorm(100, 0.1) 

options("ReporteRs-fontsize" = 12) 
doc <- docx() %>% 
    addPlot(function() plot(x,y, xlab = "Values of x", main="Test plot"), vector.graphic=TRUE, editable=TRUE, fontname="Times New Roman") 
writeDoc(doc, file = "test.docx") 

Answer 1

的溶液，通过包的作者在记者封装谷歌组提供：

https://groups.google.com/forum/#!topic/reporters-package/x3a_qWQ0hGc

doc <- docx() %>% 
     addPlot(function() plot(x,y, xlab = "Values of x", main="Test plot", family="serif"), vector.graphic=TRUE, 
       editable=TRUE, fontname_serif = "Times New Roman") 
    writeDoc(doc, file = "test.docx")