使用R将数据传输到现有的.xlsm文件

Question

我正在尝试从一个.xlsm文件（FILE1）读取工作表，并将其保存到另一个.xlsm文件（FILE2）。

我尝试了各种方法，但是之后FILE2几乎总是损坏，或者由于堆空间错误而导致脚本中断。

您对如何解决问题/在R中正确处理xlsm有任何建议吗？

library("rJava")
library("openxlsx")
library("zoo")
library("xlsxjars")
library("stringr")
library("zipR")
library("dplyr")
library("plyr")

options(java.parameters = "-Xmx4g") 

allfiles <- list.files()
x <- length(allfiles)

na_strings = c("-","--","NA","#N/A",""," ")

ESCO_Input <- read.xlsx(xlsxFile = allfiles[1], sheet = 1, startRow = 5, colNames = TRUE,
                              skipEmptyCols = FALSE, na.strings = na_strings)

write.xlsx(ESCO_Input, file = allfiles[2], sheetName = "ESCO_Input")```