将多个小标题导出到 Excel 中的单独工作表

Question

我正在寻找一种自动清理数据的方法。到目前为止，我已经弄清楚如何使用以下命令将多个 Excel 工作簿及其所有工作表导入到 R 中：

my_data = expand_grid(
    file = list.files("~path", full.names = TRUE),
     sheet = seq(6)
 ) %>%
     transmute(data = file %>% map2(sheet, ~ read_excel(path = .x, sheet = .y, skip = 2))) %>%
     pull(data)

我需要帮助是将所有生成的小标题导出到 Excel 工作簿中，每张一个小标题。

我正在使用以下方法尝试打印（基于之前回答的问题）：

library(openxlsx)
library(tibble)
output_expediter <- function(df, output_filename) {
     nm1 <- deparse(substitute(df))
     wb <- createWorkbook()
     addWorksheet(wb, sheetName = nm1)
     writeData(wb, sheet= nm1, x = df)
     saveWorkbook(wb =wb, file = output_filename, overwrite = TRUE)
     }

我收到以下错误：

(function (..., row.names = NULL, check.rows = FALSE, check.names = TRUE, 中的错误： 参数意味着不同的行数：4, 52, 8, 0, 5

确实，所有小标题的行号都不同。我不确定如何继续。

任何帮助将不胜感激。