如何判断R是否已成功加载特定字体？

在R中，你可以通过检查系统路径（`Sys.getenv("PATH")`）或当前工作目录（`.libPaths()`）来查看是否包含了你刚刚添加的字体文件。此外，可以使用`fontinfo()`函数从grDevices包获取系统的字体列表，看是否有目标字体。

# 检查系统环境变量中是否存在字体路径
font_path <- Sys.getenv("PATH")
if (grepl(pattern = "your_font_directory", font_path)) {
  message("已成功添加字体路径.")
} else {
  message("尚未找到字体路径.")
}

# 或者获取系统字体列表
library(grDevices)
installed_fonts <- fontinfo()
if ("ArialMT" %in% installed_fonts$family) {
  message("ArialMT字体已安装.")
} else {
  message("ArialMT字体未安装或未加载.")
}

如果`ArialMT`出现在`installed_fonts$family`列表中，那么就说明你已经成功加载了该字体。