[style] further tweaking of theme colors

[JanMarvin]

library(openxlsx2)

clr_xml <- create_colors_xml()

wb <- wb_workbook()$
  set_base_colors(xml = clr_xml)$
  add_worksheet()$
  add_fill(dims = "A1", color = wb_color(theme = 4))$
  add_fill(dims = "B1", color = wb_color(theme = 5))$
  add_fill(dims = "C1", color = wb_color(theme = 6))$
  add_fill(dims = "D1", color = wb_color(theme = 7))$
  add_fill(dims = "E1", color = wb_color(theme = 8))$
  add_fill(dims = "F1", color = wb_color(theme = 9))$
  add_fill(dims = "G1", color = wb_color(theme = 10))

wb$get_base_colors(xml = FALSE)
#> $`Base R`
#>      a:dk1      a:lt1      a:dk2      a:lt2  a:accent1  a:accent2  a:accent3 
#>  "#000000"  "#FFFFFF"  "#00008B"  "#D3D3D3"  "#DF536B"  "#61D04F"  "#2297E6" 
#>  a:accent4  a:accent5  a:accent6    a:hlink a:folHlink 
#>  "#28E2E5"  "#CD0BBC"  "#F5C710"  "#0000FF"  "#BEBEBE"

if (interactive()) wb$open()

And now we make use of barplot() with wb_get_base_colors():

[JanMarvin]

Guess that was the last one for 1.4, @olivroy . It has become a quite big release:

• pivot table formulas
• new theme
• theme colors
• various fixes and improvements all over the place

I'm planning to do the release either tomorrow or Friday morning.

[olivroy]

Bravo for all the work! I did some pretty light testing ! Looks good. Just sending a quick PR to address some things I tripped on while doing my testing