使用openxlsx2的group_rows函数消除警告的技术咨询

问题背景 #

使用openxlsx2生成带总计行的数据表后，尝试对整个数据表（含表头、数据行、总计行）进行分组以实现折叠功能，代码可正常生成预期Excel文件，但会出现行属性赋值长度不匹配的警告。

重现代码 #

packages <- c("openxlsx2")
lapply(packages, library, character.only = TRUE)

wb <- wb_workbook()
wb$add_worksheet("mysheet")

# 添加带总计行的数据表
wb$add_data_table(x=head(mtcars), sheet="mysheet", dims="A1", 
                  tableName="head_mtcars", tableStyle="TableStyleMedium23",
                  total_row=rep("sum", ncol(mtcars))
                  )

# 分组行以实现折叠
start <- 1
end <- nrow(head(mtcars)) + 3
wb$group_rows(sheet="mysheet", rows=start:end)
wb_save(wb, paste0("test.xlsx"))

警告信息 #

Warning messages:
1: In row_attr$outlineLevel[select] <- as.character(levels) :
  number of items to replace is not a multiple of replacement length
2: In row_attr$collapsed[select] <- as_binary(collapsed) :
  number of items to replace is not a multiple of replacement length

解决方案 #

方案1：明确指定分组的大纲级别 #

在调用group_rows时显式设置outlineLevel参数，确保属性赋值的长度一致：

start <- 1
end <- nrow(head(mtcars)) + 3
wb$group_rows(sheet="mysheet", rows=start:end, outlineLevel=1)

方案2：先清除目标行的原有大纲属性 #

如果目标行（尤其是数据表的行）已存在大纲属性，先清除再分组可避免长度不匹配问题：

start <- 1
end <- nrow(head(mtcars)) + 3
# 清除目标行的原有大纲级别属性
wb$set_row_attrs(sheet="mysheet", rows=start:end, outlineLevel=NULL)
# 执行分组
wb$group_rows(sheet="mysheet", rows=start:end)

方案3：抑制警告（仅确认功能正常时使用） #

若确认警告不影响最终Excel文件的功能和格式，可使用suppressWarnings包裹分组操作：

start <- 1
end <- nrow(head(mtcars)) + 3
suppressWarnings(wb$group_rows(sheet="mysheet", rows=start:end))

原因说明 #

警告产生的核心原因是：添加数据表格时，openxlsx2会为表头、数据行、总计行自动设置特定的行属性，直接对这些行执行分组操作时，原有属性与分组操作要赋值的属性长度不匹配，从而触发警告。上述方案通过统一属性赋值或清除原有属性的方式解决了长度不匹配问题。

内容的提问来源于stack exchange，提问作者FB001