确定执行脚本的路径

Question

确定执行脚本的路径我有一个叫foo.R其中包括另一个脚本other.R，它位于同一个目录中：#!/usr/bin/env Rscriptmessage("Hello")source("other.R")但我想R才能发现other.R不管当前的工作目录是什么。换句话说，foo.R需要知道它自己的路。我怎么能这么做？

Answer 1

这里这个问题有一个简单的解决办法。这个命令：

script.dir <- dirname(sys.frame(1)$ofile)

返回当前脚本文件的路径。脚本保存后，它就能工作了。

Answer 2

当从R控制台“源”时，我无法获得SuppressingFire的解决方案。
在使用Rscript时，我无法让Hadley的解决方案工作。

两个世界中最好的？

thisFile <- function() {
        cmdArgs <- commandArgs(trailingOnly = FALSE)
        needle <- "--file="
        match <- grep(needle, cmdArgs)
        if (length(match) > 0) {
                # Rscript
                return(normalizePath(sub(needle, "", cmdArgs[match])))
        } else {
                # 'source'd via R console
                return(normalizePath(sys.frames()[[1]]$ofile))
        }}