[options] add "openxlsx2.maxWidth"

JanMarvin · Nov 12, 2023 · 0e66669 · 0e66669
1 parent a0ac1bd
commit 0e66669
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/converters.R b/R/converters.R
@@ -108,5 +108,8 @@ calc_col_width <- function(base_font, col_width) {
   # to the expected widths
   widths <- trunc((as.numeric(col_width) * mdw + 5) / mdw * 256) / 256
   widths <- round(widths, 3)
+  if (any(sel <- widths > getOption("openxlsx2.maxWidth"))) {
+    widths[sel] <- getOption("openxlsx2.maxWidth")
+  }
   widths
 }