Question

我希望能够在保存文件后在Excel中快速打开文件。我从R中使用SO

上的shell.exec 1在excel工作簿中打开了一个特定的工作表

在我的Windows系统上，我可以使用以下代码执行此操作，并且可以将其转换为函数：saveOpen＆lt; _ function {....但是，我怀疑有更好的方法来实现这个适度的目标。

我希望有任何建议可以改进这项多步骤的工作。

# create tiny data frame
df  <- data.frame(names = c("Alpha", "Baker"), cities = c("NYC", "Rome"))
# save the data frame to an Excel file in the working directory
save.xls(df, filename "test file.xlsx")
# I have to reenter the file name and add a forward slash for the paste() command below to create a proper file path
name  <- "/test file.xlsx"
# add the working directory path to the file name
file  <- paste0(getwd(), name)
# with shell and .exec for Windows, open the Excel file
shell.exec(file = file)

Answer 1

您是否只想创建辅助函数以使其更容易？ <怎么样

save.xls.and.open <- function(dataframe, filename, ...) {
    save.xls(df, filename=filename, ...)
    cmd <- file.path(getwd(), filename)
    shell.exec(cmd)
}

然后你就跑了

save.xls.and.open(df, filename ="testfile.xlsx")

我想这对我来说似乎不是那么多步骤。

在R中，打开通过shell.exec保存到Excel的对象

1 个答案: