only one hyperlink is colored

[JanMarvin]

In the following example only the first hyperlink in cell A1 is blue:

library(openxlsx2)

wb <- wb_workbook()$
  add_worksheet("Tab_1", zoom = 80, gridLines = FALSE)$
  add_worksheet("Tab_2", zoom = 80, gridLines = FALSE)

hl <- function(row = i) create_hyperlink(sheet = "Tab_2", row = i, col = 1, text = paste0("Link to 'Tab_2'"))

for(i in 1:10) {
  wb <- wb_add_formula(wb = wb, sheet = "Tab_1", startRow = i, startCol = 1, x = hl(i))
}

wb$open()