R中使用extrafont包如何检测指定字体是否已加载可用于绘图

原方案失效原因 #

• systemfonts::match_font() 属于系统级字体查询，仅验证操作系统是否安装了对应字体，和R会话内的图形设备字体注册状态无关，因此无法识别是否执行过loadfonts()
• extrafont::fonts() 仅查询已导入extrafont本地缓存的字体列表，不校验当前会话是否完成加载，同样无法满足会话级检测需求

正确检测逻辑 #

核心逻辑是校验当前R会话的图形设备字体库中是否已注册Calibri，针对Windows设备（你团队使用的loadfonts(device="win")对应场景），可通过grDevices::windowsFonts()获取当前会话可直接调用的字体列表，以此为检测依据。
完整检测步骤：

1. 先验证操作系统是否安装Calibri，避免后续无意义报错
2. 再验证当前会话的图形设备是否已注册Calibri，确认可直接用于绘图

可直接复用的检测代码 #

check_calibri_available <- function() {
  # 第一步：检测系统是否安装Calibri
  has_calibri_system <- tryCatch({
    systemfonts::match_font("Calibri")
    TRUE
  }, error = function(e) FALSE)
  
  if (!has_calibri_system) {
    stop("未检测到系统安装Calibri字体，请先安装字体后重试", call. = FALSE)
  }
  
  # 第二步：检测当前会话是否已注册Calibri到图形设备
  if (.Platform$OS.type == "windows") {
    has_calibri_session <- "Calibri" %in% names(grDevices::windowsFonts())
    if (!has_calibri_session) {
      stop("当前R会话未加载Calibri字体，请先运行以下代码：\nlibrary(extrafont)\nloadfonts(device=\"win\")\n如果执行后仍报错，请先运行font_import()导入系统字体", call. = FALSE)
    }
  } else {
    # 非Windows系统兼容逻辑，可根据团队情况调整
    message("检测到非Windows系统，请自行确认字体配置符合要求")
  }
  return(TRUE)
}

你可以将该函数嵌入你的公共绘图函数开头，调用后无报错即可正常使用Calibri字体绘图。

跨系统兼容补充 #

如果团队有使用macOS的同事，loadfonts对应参数改为device="quartz"，检测逻辑替换为校验"Calibri" %in% names(grDevices::quartzFonts())即可。

内容的提问来源于stack exchange，提问作者shirewoman2