Merge pull request #43 from jhorzek/jhorzek-patch-1

Fix incorrect background setting for rhs of header
jhorzek · Jan 11, 2025 · a89230a · a89230a
2 parents 584d3b4 + 6c1d0cb
commit a89230a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/as_excel.R b/R/as_excel.R
@@ -176,7 +176,7 @@ fill_background <- function(tbl,
   # Header RHS
   openxlsx::addStyle(wb = workbook,
                      sheet = sheet,
-                     style = styles$bg_header_lhs,
+                     style = styles$bg_header_rhs,
                      rows = locations$row$start_row_header:locations$row$end_row_header,
                      cols = locations$col$start_col_header_rhs:locations$col$end_col_header_rhs,
                      gridExpand = TRUE,
@@ -202,7 +202,7 @@ fill_background <- function(tbl,
   if(!is.null(tbl$footnote))
     openxlsx::addStyle(wb = workbook,
                        sheet = sheet,
-                       style = styles$bg_data,
+                       style = styles$bg_footnote,
                        rows = locations$row$start_row_footnote:locations$row$end_row_footnote,
                        cols = locations$col$start_col_footnote:locations$col$end_col_footnote,
                        gridExpand = TRUE,