Custom table styles

[JanMarvin]

As discussed in #594 there are ways to create custom table styles. It's a bit ugly and I'm not colorblind, but it's something! 😄

Our create_dxfs_style() function does not allow all the granularity of possible style combinations, but it is better than nothing.

library(openxlsx2)
wb <- wb_workbook() %>%
  wb_add_worksheet()

tabCol1 <- create_dxfs_style(bgFill = wb_color(theme = 7))
tabCol2 <- create_dxfs_style(bgFill = wb_color(theme = 5))
tabBrd1 <- create_dxfs_style(border = TRUE)
tabCol3 <- create_dxfs_style(bgFill = wb_color(hex = "FFC00000"), font_color = wb_color("white"))

wb$add_style(tabCol1)
wb$add_style(tabCol2)
wb$add_style(tabBrd1)
wb$add_style(tabCol3)


wb$styles_mgr$styles$tableStyles <-
  sprintf(
    "<tableStyles count=\"1\" defaultTableStyle=\"TableStyleMedium2\" defaultPivotStyle=\"PivotStyleLight16\">
       <tableStyle name=\"RedTableStyle\" pivot=\"0\" count=\"%s\" xr9:uid=\"{91A57EDA-14C5-4643-B7E3-C78161B6BBA4}\">
         <tableStyleElement type=\"wholeTable\" dxfId=\"%s\"/>
         <tableStyleElement type=\"headerRow\" dxfId=\"%s\"/>
         <tableStyleElement type=\"firstRowStripe\" dxfId=\"%s\"/>
         <tableStyleElement type=\"secondColumnStripe\" dxfId=\"%s\"/>
       </tableStyle>
    </tableStyles>",
    length(c(tabCol1, tabCol2, tabCol3, tabBrd1)),
    wb$styles_mgr$get_dxf_id("tabBrd1"),
    wb$styles_mgr$get_dxf_id("tabCol3"),
    wb$styles_mgr$get_dxf_id("tabCol1"),
    wb$styles_mgr$get_dxf_id("tabCol2")
  )


wb %>% 
  wb_add_data_table(x = mtcars, tableStyle = "RedTableStyle") %>% 
  wb_open()