如何根据R中的条件更改整个表值的字体颜色？

install.packages("openxlsx")

library(openxlsx)

wb <- createWorkbook()
addWorksheet(wb, "Sheet1")

data <- data.frame(
  Name = c("Alice", "Bob", "Charlie", "David"),
  Age = c(25, 30, 35, 40),
  Score = c(80, 90, 85, 95)
)

condition <- CellStyle(wb) +
  Font(color = "red")

writeData(wb, "Sheet1", data, startCol = 1, startRow = 1)
conditionalFormatting(wb, "Sheet1", cols = 3, rows = 2:(nrow(data) + 1),
                       rule = ">=90", style = condition)

saveWorkbook(wb, "output.xlsx", overwrite = TRUE)