R:当使用PowerPoint ()将绘图导出到graph2ppt()时，如何自动粘贴文件名？

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()将其导出到graph2ppt()。如果我只需输入文件名就可以了：

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

我不知道如何像write.csv()一样将文件名粘贴到write.csv()。

我试过这样的方法，但行不通：

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

Answer 1

我找到解决办法了！这个管用！！

   graph2ppt(file = myInputFile)