[wbWorkbook] Themes

[JanMarvin]

Allow switching of themes

library(openxlsx2)

wb <- wb_workbook(theme = "Old Office Theme")$add_worksheet()
wb$get_base_font()
#> $size
#> $size$val
#> [1] "11"
#> 
#> 
#> $color
#> $color$theme
#> [1] "1"
#> 
#> 
#> $name
#> $name$val
#> [1] "Calibri"

wb <- wb_workbook(theme = 1)$add_worksheet()
wb$get_base_font()
#> $size
#> $size$val
#> [1] "11"
#> 
#> 
#> $color
#> $color$theme
#> [1] "1"
#> 
#> 
#> $name
#> $name$val
#> [1] "Rockwell"