R：如何使用graph2ppt（）将图导出到PowerPoint中时如何自动粘贴文件名？

Question

我通常会捕获文件名，然后导入该文件：

myInputFile = "G:/My Drive/dataFile.txt"

df <- read.delim(paste0(myInputFile), stringsAsFactors=FALSE)

我使用该文件，然后使用相同的文件名将其导出到csv：

 write.csv(df, paste0(dirname(myInputFile), "/Output_", tools::file_path_sans_ext(basename(myInputFile)), ".csv"),row.names=F,na='NA')

我通常也作图，我想轻松地使用相同的文件名，并使用graph2ppt（）将其导出到PowerPoint。 如果我只输入文件名，它就可以正常工作：

library(export)
graph2ppt(file="myPlot.pptx") 

我无法像使用write.csv（）一样弄清楚如何将文件名粘贴到graph2ppt（）。

我尝试了类似的方法，但是它不起作用：

graph2ppt(file = paste0(dirname(myInputFile), "/myPlot_", tools::file_path_sans_ext(basename(myInputFile)), ".pptx"))

Answer 1

我找到了解决方案！可行！

   graph2ppt(file = myInputFile)