XLConnect saveWorkbook函数无法将工作簿对象写入磁盘

Question

我需要打开一个现有的xlsx文件，并将两个数据帧写入特定的单元格，然后将此工作簿保存为相同的名称。我以前以这种方式成功，但是这次不再起作用了。代码正在运行，没有错误消息。但是我看不到对现有excel文件的任何更改。

这是我的代码：

library(XLConnect)
filename<-paste("A",paste0("Report_",Sys.Date(),".xlsx"))
path<- 'D:/Test/'  

# open template
wb2<-loadWorkbook(paste0(path,filename))

#call function user defined graph_r and get data
#agydf is used to call function graph_r 
tb<- ra_graph(agydf)

#write to excel sheet
writeWorksheet(wb2, tb[[1]], sheet = 'Graph', startRow = 6, 
startCol = 1)
writeWorksheet(wb2, tb[[2]], sheet = 'Graph', startRow = 40, 
startCol = 1)

saveWorkbook(wb2, filename)