使用xlsx包覆盖xlsm文件中的单元格引用

Question

我有一个.xlsm工作簿，该工作簿具有当前引用到单元格B2的单元格B1，其硬编码值为5。

我想使用R从单元格B1中删除引用，并将其替换为硬编码值0。

我正在尝试通过使用xlsx包在R中执行此操作。但是，在使用setCellValue函数并打开工作簿之后，我看到B1的值为0，但它仍然清楚地引用了单元格B2（这可以在编辑栏中看到，并且可以看到单元格B3是单元格B1的函数，保持不变）

您能帮我利用xlsx包覆盖B1中的单元格引用并将其替换为硬编码值吗？

请参见下面的代码以及excel工作簿的屏幕截图。

代码：

    library('xlsx')

    fn <- 'test.xlsm'
    sn <- 'Sheet1'

    wb <- loadWorkbook(fn)
    sheets <- getSheets(wb)
    sheet <- sheets[[sn]]
    rows <- getRows(sheet)
    cells <- getCells(rows)
    setCellValue(cells$`1.2`, 0)
    saveWorkbook(wb, fn)

Excel工作簿运行前：

运行后的Excel工作簿：