Can you append to current style?

[J-Moravec]

I am styling my table according to https://janmarvin.github.io/openxlsx2/articles/openxlsx2_style_manual.html#styling-showcase. I run a lot of wb_add_style, which seems to be rewriting the current style altogether.

Is there a way to append to the current style?

MRE:

wb = wb_workbook() |> wb_add_worksheet("iris") |> wb_add_data("iris", iris, col_names = TRUE, na.strings = "")
# Change first cell to bold
wb = wb_add_font(wb, dims = wb_dims(1, 1), bold = TRUE)
# Now to arial, but bold is removed
wb = wb_add_font(wb, dims = wb_dims(1, 1), name = "Arial") 
 # Now to size 10, but its not bold or Arial any more
wb = wb_add_font(wb, dims = wb_dims(1,1), size = 10)
# wb$open()

[JanMarvin]

Hi @J-Moravec ,

there is a PR that can help with this (#1153), but it's still an early draft.

library(openxlsx2)

wb = wb_workbook() |> wb_add_worksheet("iris") |> wb_add_data("iris", iris, col_names = TRUE, na.strings = "")
# Change first cell to bold
wb = wb_add_font(wb, dims = wb_dims(1, 1), bold = TRUE)
# Now to arial, but bold is removed
wb = wb_add_font(wb, dims = wb_dims(1, 1), name = "Arial", update = TRUE) 
# Now to size 10 and bold, but not Arial any more
wb = wb_add_font(wb, dims = wb_dims(1,1), size = 10, update = TRUE)

wb$styles_mgr$styles$fonts[2:4]
#> [1] "<font><b val=\"1\"/><color rgb=\"FF000000\"/><name val=\"Aptos Narrow\"/><sz val=\"11\"/></font>"
#> [2] "<font><b val=\"1\"/><color rgb=\"FF000000\"/><name val=\"Arial\"/><sz val=\"11\"/></font>"       
#> [3] "<font><b val=\"1\"/><color rgb=\"FF000000\"/><name val=\"Aptos Narrow\"/><sz val=\"10\"/></font>"

[JanMarvin]

Since we provide default values in wb_add_font() it is not possible to differentiate in updated values or default values.

This works, but hmm

wb = wb_add_font(wb, dims = wb_dims(1,1), name = "", size = 10, update = TRUE)