revert back to 11pt default size

Author: JanMarvin

R/baseXML.R

@@ -136,7 +136,7 @@ genBaseStyleSheet <- function(dxfs = NULL, tableStyles = NULL, extLst = NULL) {
   list(
     numFmts = NULL,
 
-    fonts = c('<font><sz val="12"/><color theme="1"/><name val="Calibri"/><family val="2"/><scheme val="minor"/></font>'),
+    fonts = c('<font><sz val="11"/><color theme="1"/><name val="Calibri"/><family val="2"/><scheme val="minor"/></font>'),
 
     fills = c(
       '<fill><patternFill patternType="none"/></fill>',

R/class-workbook-wrappers.R

@@ -578,7 +578,7 @@ wb_set_row_heights <- function(wb, sheet = current_sheet(), rows, heights) {
 #' @param sheet A name or index of a worksheet
 #' @param cols Indices of cols to set width
 #' @param widths width to set cols to specified in Excel column width units or "auto" for automatic sizing. The widths argument is
-#' recycled to the length of cols. The default width is 10. Though there is no specific default width for Excel, it depends on
+#' recycled to the length of cols. The default width is 8.43. Though there is no specific default width for Excel, it depends on
 #' Excel version, operating system and DPI settings used. Setting it to specific value also is no guarantee that the output will be
 #' of the selected width.
 #' @param hidden Logical vector. If TRUE the column is hidden.
@@ -788,7 +788,7 @@ wb_remove_worksheet <- function(wb, sheet = current_sheet()) {
 #'
 #' wb$add_data("S1", iris)
 #' wb$add_data_table("S1", x = iris, startCol = 10) ## font colour does not affect tables
-wb_set_base_font <- function(wb, fontSize = 12, fontColour = wb_colour(theme = "1"), fontName = "Calibri") {
+wb_set_base_font <- function(wb, fontSize = 11, fontColour = wb_colour(theme = "1"), fontName = "Calibri") {
   assert_workbook(wb)
   wb$clone()$set_base_font(
     fontSize   = fontSize,

R/class-workbook.R

@@ -1863,7 +1863,7 @@ wbWorkbook <- R6::R6Class(
       name   <- unlist(xml_attr(baseFont, "font", "name"))
 
       if (length(sz[[1]]) == 0) {
-        sz <- list("val" = "8.43")
+        sz <- list("val" = "11")
       } else {
         sz <- as.list(sz)
       }

R/converters.R

@@ -94,7 +94,7 @@ calc_col_width <- function(base_font, col_width) {
 
   # Note: cannot reproduce the exact values with MS365 on Mac. Nevertheless, these values are closer
   # to the expected widths
-  adjust_macos <- ifelse(Sys.info()[["sysname"]] == "Darwin", +2, 0)
+  adjust_macos <- ifelse(Sys.info()[["sysname"]] == "Darwin", +1, 0)
   widths <- trunc((as.numeric(col_width) * mdw + 5 + adjust_macos) / mdw * 256) / 256
   widths <- round(widths, 3)
   widths