R将工作目录设置为源文件位置？

Question

我读了这个主题： R command for setting working directory to source file location

但是此功能会输出错误：

this.dir <- dirname(parent.frame(2)$ofile)
setwd(this.dir)

  

dirname中的错误（parent.frame（2）$ ofile）：一个字符向量   预期的论点

如何将工作目录设置为源文件位置？