R openxlsx字体样式未出现在注释中

Question

我正在使用openxlsx将数据写入电子表格，我希望注释字体与工作簿其余部分的基本字体不同。但是，我发现注释未以我选择的字体显示。我能够更改注释字体的唯一方法是更改​​基本字体。可重现的示例：

library(openxlsx)

wb <- createWorkbook()
sheet <- addWorksheet(wb, "sheet1")

modifyBaseFont(wb, fontName="Arial")

style1 <- createStyle(fontName="Lucida Console", textDecoration = "bold")

comment <- createComment("Comment", style=style1)

writeComment(wb, sheet, 1, 1, comment)

saveWorkbook(wb, "commentExample.xlsx", overwrite=TRUE)

其结果是：

openxlsx的文档提到字体名称未经验证，并且默认为基本字体。但是，Lucida Console和我尝试过的所有其他字体都可以在ModifyBaseFont中使用。注释还显示了一些样式，以粗体显示。感谢您帮助解决此问题！