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

Question

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

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)