More than one databar destroys the workbook

[joshuasami]

Describtion
Hey, I'm running in to a problem, when I add databars, via conditionalFormatting, into my workbook. One Databar works fine, but I when I add two Databars, my workbook saves, but I can't open it anymore afterwards.

The same bug was already described here: /issues/42

To Reproduce

library(openxlsx)
wb <- createWorkbook()
sheet_name <- "sheet 1"
addWorksheet(wb, sheet_name)
df <- data.frame(
  A = 1:10,
  B = 11:20
)
writeDataTable(wb, sheet_name, df, tableStyle = "TableStyleMedium9")
for (col in 1:2) {
  conditionalFormatting(
    wb,
    sheet_name,
    cols = col,
    rows = 2:(nrow(df) + 1),
    type = "databar",
    style = c("#ffb628", "#ffb628"),
    gradient = FALSE,
    border = FALSE
  )
}
saveWorkbook(wb, "test.xlsx", overwrite = TRUE)

[JanMarvin]

Hi @joshuasami, thanks for the report, but this is not going to be fixed in openxlsx. If you need this, please have a look at openxlsx2.

It requires working with the XML code that is just not possible with the tools available in openxlsx.

[Edit] Sorry for the typo in the name, somehow my smartphones autocomplete was borked.

[JanMarvin]

If you want to, I would accept a PR either mentioning this is in the documentation or via a check when adding a second databar.
IIRC the databar is added as additional ext14 node, when instead it should be added as a child.