R语言自动设置当前文件的路径为工作路径

SAS程序自动设置当前执行文件路径为工作路径请参考：
https://blog.youkuaiyun.com/ofoliao/article/details/99574853

在R文件的前面添加一行语句：

setwd(dirname(parent.frame(2)$filename))

这样，每次点击RStudio的Source按钮的时候，都会自动setwd到当前执行文件的路径。

注意：需要Source该R文件才有效，在RStudio中run the current line没有效果。