R-openXL在openxlxs软件包中不起作用

Question

openXLsx软件包中的openXL函数不起作用。 我已经卸载然后重新安装，但是没有运气。 奇怪的是，它适用于下面的reprex，但不适用于我的任何其他脚本。 任何想法为什么会这样？谢谢。

library(openxlsx)
setwd(getwd())
wb <- createWorkbook()

addWorksheet(wb, "test")
somedata <- "data"
writeData(wb, 1, somedata)

saveWorkbook(wb, "temp.xlsx", TRUE)
openXL(wb)

Answer 1

在Windows上，这可能有效：

shell(shQuote(string = wb$saveWorkbook()), wait = TRUE)

与openXL调用的命令相同，除了参数wait设置为TRUE。