r - openxlsx错误: length of rows and cols must be equal

Question

我刚刚遇到了与 this 相同的问题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)

Error in addStyle(wb, 1, style = boldStyle, cols = 4:5, rows = 1:150, : Length of rows and cols must be equal.

如何修复此代码，以便不会出现错误，并且可以将样式应用到非矩形单元格集？

Answer 1

addStyle 的参数之一，gridExpand, 默认设置为 FALSE。让它执行您尝试的操作的技巧是将此参数设置为 TRUE。这允许函数将样式应用到所提供的行和列的组合。

将最后一行替换为这一行，它应该可以正常工作:

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