r - 使用 R 包 openxlsx 将样式应用于整个 Excel 工作表

Question

我正在使用一个名为 openxlsx 的 R 包。我创建了 AlignStyle见下文。我想将此样式应用于标题为“测试表”的整个工作表。当我尝试将此样式应用于 Excel 工作表的所有行和所有列时，我得到一个 Error in 1:Inf : result would be too long a vector .

# Define a style
AlignStyle <- createStyle(halign = "CENTER", valign = "TOP")

# Apply the style
addStyle(wb, "test-sheet", style = AlignStyle, rows = 1:Inf, cols = 1:Inf, gridExpand = TRUE)

我知道我可以这样做 rows = 1:nrows(df)但我的数据框的名称并不总是 df .

您知道我可以使用 openxlsx R 包将样式应用于整个工作表或整个工作簿的另一种方法吗？

Answer 1

你可以这样做:

map(df, ~addStyle(wb, "test-sheet", style = AlignStyle, rows = 0:nrow(.x)+1, cols = 0:ncol(.x)+1, gridExpand = TRUE)

如果第一行是标题，则在末尾添加 +1 将包括所有单元格