[fonts] fallback to Aptos Narrow width if font not found

JanMarvin · Jul 15, 2024 · 643b4a6 · 643b4a6
1 parent a3c2f1d
commit 643b4a6
Showing 1 changed file with 3 additions and 0 deletions.
diff --git 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]