[style] use wb_base_font() size

Author: JanMarvin

R/class-workbook.R

@@ -3133,8 +3133,10 @@ wbWorkbook <- R6::R6Class(
 
         sel <- panose$family == font_name & panose$type == font_type
         if (!any(sel)) {
-          warning("Could not find font in panose table. Ignoring panose entry.")
           panose_hex <- NULL
+        } else if (exists("font_panose")) {
+          # the input provides a panose value
+          panose_hex <- font_panose
         } else {
           panose_hex <- panose[sel, "panose"]
         }

R/write.R

@@ -469,10 +469,11 @@ write_data2 <- function(
 
       wb$add_font(
         sheet = sheetno,
-        dims = dim_sel,
+        dims  = dim_sel,
         color = wb_color(hex = "FF0000FF"),
-        name = wb_get_base_font(wb)$name$val,
-        u = "single"
+        name  = wb_get_base_font(wb)$name$val,
+        size  = wb_get_base_font(wb)$size$val,
+        u     = "single"
       )
     }