r - 将字体从 Times new roman 更改为 Courier New

Question

我正在尝试将字体从 time new roman 更改为 Courier new 当它被导出到 word 文档时，但无法确定它，因为默认字体是 times new roman

 rtf <- RTF("New.rtf",   width=7,height=7.27,font.size=9,omi=rep(1,1,1,1))

  addHeader.RTF(rtf, title = "Names", subtitle= "Class", font.size=9, top = T)

  addHeader.RTF(rtf, title = "Subset: Roll no", subtitle= "Actual Number: XXXXXXXXXX", font.size=9, top = T)

  addTable.RTF(rtf,as.data.frame(iris),font.size=9,row.names=FALSE,NA.string="-", col.justify='L',header.col.justify='L', col.widths=rep(c(0.9,0.9,0.9, 1, 1.5)))

  startParagraph.RTF(rtf)

  addText.RTF(rtf,"Data is pasted from IRIS data.")

  endParagraph.RTF(rtf)

  done.RTF(rtf)

标签： rms-wordrtf