From 643b4a60603b1bdb691a706d4bc64920833b9136 Mon Sep 17 00:00:00 2001
From: Jan Marvin Garbuszus <jan.garbuszus@rub.de>
Date: Mon, 15 Jul 2024 19:10:16 +0200
Subject: [PATCH] [fonts] fallback to Aptos Narrow width if font not found

---
 R/converters.R | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/R/converters.R b/R/converters.R
index d8128aaa3..fb6bbf06d 100644
--- a/R/converters.R
+++ b/R/converters.R
@@ -94,6 +94,9 @@ calc_col_width <- function(base_font, col_width) {
   font <- base_font$name$val
   size <- as.integer(base_font$size$val)
 
+  if(!any(font %in% font_width_tab$FontFamilyName))
+    font <- "Aptos Narrow"
+
   sel <- font_width_tab$FontFamilyName == font & font_width_tab$FontSize == size
   # maximum digit width of selected font
   mdw <- font_width_tab$Width[sel]