r - 将单行添加到 xlsx 保持格式

Question

我想使用 R 附加一个单行 3 列宽的 xlsx 文件。 xlsx 文件有一些我不想丢失的格式。 xlsx 包的 read.xlsx 中的追加选项与 read.table 的追加方式不同。根据我的阅读，它用于附加表格。

library(xlsx)
## I have an xlsx similar to this but with highlighting and such
write.xlsx(mtcars[1:3, 1:3], "test.xlsx", row.names=FALSE)

## Row I want to append
mtcars[4, 1:3]

如何在不破坏格式(突出显示等)的情况下将此行添加到 xlsx 文件中。我目前正在尝试使用 xlsx 包来执行此操作，但我并不习惯使用它。

append 错误，这是预期的，因为 append 适用于工作表:

> write.xlsx(mtcars[4, 1:3], "test.xlsx", append=TRUE, row.names=FALSE)
Error in .jcall(wb, "Lorg/apache/poi/ss/usermodel/Sheet;", "createSheet",  : 
  java.lang.IllegalArgumentException: The workbook already contains a sheet of this name

Answer 1

这里是使用 XLConnect 包中的 appendWorksheet 的解决方案:

library(XLConnect)
# mtcars xlsx file from demoFiles subfolder of package XLConnect
demoExcelFile <- system.file("demoFiles/mtcars.xlsx", package = "XLConnect")
wb <- loadWorkbook(demoExcelFile)
appendWorksheet(wb, mtcars, sheet = "mtcars")
saveWorkbook(wb,demoExcelFile)