r - openxlsx 错误：行和列的长度必须相等

Question

我刚刚遇到了这个Nabble 用户在尝试使用一组非矩形行和列将样式应用于 Excel 工作簿时遇到的相同问题。

wb <- createWorkbook()
addWorksheet(wb, "Iris")
writeData(wb, sheet = 1, x = iris)
boldStyle <- createStyle(textDecoration=c("bold"))
addStyle(wb, 1, style = boldStyle, cols=4:5, rows = 1:150)

addStyle(wb, 1, style = boldStyle, cols = 4:5, rows = 1:150, 错误：行和列的长度必须相等。

如何修复此代码，以免出现错误，并将样式应用于非矩形单元格集？

Answer 1

addStyle 的参数之一默认gridExpand,设置为FALSE。实现此目的的技巧是将此参数设置为TRUE. This 允许函数将样式应用于提供的行和列的组合。

用这一行替换最后一行，它应该可以正常工作：

addStyle(wb, 1, style = boldStyle, cols=4:5, rows = 1:150, gridExpand = T)