R-使用模板excel文件在下面插入行

我有一个关于在excel文件中插入新行的问题

这是一个模板excel文件：（I附件-payroll slip.xlsx）

我需要在标题“工资单”（第6行添加）后添加一个表格，员工和人力资源员工的签名将按表格行数向下推

结果将是：

我使用了package

xlsx

，首先，我加载excel文件。之后，我使用

addDataframe

添加表，从第6行开始，但它覆盖到签名，如下所示：

这是我的代码：

library(xlsx)

wb <- loadWorkbook("payroll slip.xlsx")

table_rownames_style <- CellStyle(wb) +
    Font(wb, isBold = FALSE)

table_colnames_style <- CellStyle(wb) +
    Font(wb, isBold = TRUE) +
    Alignment(wrapText = TRUE, horizontal = "ALIGN_LEFT") +
    Border(color = "black", position = c("TOP", "BOTTOM"), pen = c("BORDER_THIN", "BORDER_THIN"))

table_content_style <- CellStyle(wb,
                                 alignment = Alignment(wrapText = TRUE,
                                                       horizontal = "ALIGN_CENTER"))

add_df_to_sheet <- function(df_table, startrow, sheet_object, colnames = TRUE){
    addDataFrame(
        as.data.frame(df_table, stringsAsFactors = FALSE),
        sheet_object,
        startRow = startrow,
        startColumn = 1,
        colnamesStyle = table_colnames_style,
        rownamesStyle = table_rownames_style,
        colStyle = table_content_style,
        row.names = FALSE,
        col.names = colnames)
}

df <- data.frame(`No.` = c(1, 2, "Total"),
                 Content = c("Salary", "ET/OT", ""),
                 Amount = c("$400", "0", ""),
                 Quantities = c("20 days", "0", ""),
                 Total = c("$8000", "0", "$8000"),
                 stringsAsFactors = FALSE)

sheets <- getSheets(wb)

sheet1 <- sheets[[1]]
add_df_to_sheet(df, 6, sheet1)

saveWorkbook(wb, "payroll slip.xlsx")

库（xlsx）
wb