确定正在执行的脚本的路径

由于我的脚本是从符号链接目录操作的，因此我对以上实现存在问题，或者至少我认为以上解决方案对我没有起作用。参考 @ennuikiller 的回答，我将我的 Rscript 包装在 bash 中。我使用 pwd -P 设置路径变量，该命令解析符号链接目录结构。然后将路径传递到 Rscript。

Bash.sh

#!/bin/bash

# set path variable
path=`pwd -P`

#Run Rscript with path argument
Rscript foo.R $path

foo.R

args <- commandArgs(trailingOnly=TRUE)
setwd(args[1])
source(other.R)

sys.calls()[[1]] [[2]]

我发现最灵活的解决方案是使用 rstudioapi::getSourceEditorContext() 和（可选）sub()

• 可以交互地工作，适用于 .Rmd 和 .R 脚本
• 在编织 .Rmd 文件时工作
• 在源代码 .R 文件中工作

请尝试以下操作：

current_file <-
  rstudioapi::getSourceEditorContext()$path %>%
  sub(".*/", "", .)

rstudioapi::getSourceEditorContext()$path 返回当前文件的完整路径。

sub(".*/", "", .) 提取最后一个 / 后面的所有内容，只留下文件名。

希望这有所帮助！

我会使用@steamer25的方法的变体。重要的是，即使我的会话是通过Rscript启动的，我仍然希望获取最后一个已源代码化的脚本。当包含以下代码片段的文件被调用时，将提供一个名为thisScript的变量，其中包含了脚本的标准化路径。我承认滥用source函数，所以有时我会调用Rscript，并且在--file参数提供的脚本中源另一个脚本，然后再源另一个...总有一天我会投入更多精力，将我的混乱代码转化成一个包。

thisScript <- (function() {
  lastScriptSourced <- tail(unlist(lapply(sys.frames(), function(env) env$ofile)), 1)

  if (is.null(lastScriptSourced)) {
    # No script sourced, checking invocation through Rscript
    cmdArgs <- commandArgs(trailingOnly = FALSE)
    needle <- "--file="
    match <- grep(needle, cmdArgs)
    if (length(match) > 0) {
      return(normalizePath(sub(needle, "", cmdArgs[match]), winslash=.Platform$file.sep, mustWork=TRUE))
    }
  } else {
    # 'source'd via R console
    return(normalizePath(lastScriptSourced, winslash=.Platform$file.sep, mustWork=TRUE))
  }
})()

通过查看调用栈，我们可以获得正在执行的每个脚本的文件路径，最有用的两个可能是当前正在执行的脚本或第一个被引用的脚本（入口）。

script.dir.executing = (function() return( if(length(sys.parents())==1) getwd() else dirname( Filter(is.character,lapply(rev(sys.frames()),function(x) x$ofile))[[1]] ) ))()

script.dir.entry = (function() return( if(length(sys.parents())==1) getwd() else dirname(sys.frame(1)$ofile) ))()

#!/usr/bin/env Rscript
print("Hello")

# sad workaround but works :(
programDir <- dirname(sys.frame(1)$ofile)
source(paste(programDir,"other.R",sep='/'))
source(paste(programDir,"other-than-other.R",sep='/'))

这个解决方案是在2016年提出的，非常感谢作者Sahil Seth！

软件包funr在CRAN和github上提供了函数sys.script()，用于获取当前脚本的完整路径。它甚至引用了一个类似的SO post。

因此，解决方案如下：

myscript.R:

#!/usr/bin/env Rscript
f  <-  funr::sys.script()
show(f)

然后执行命令：

user@somewhere:/home$ Rscript myscript.R

"/home/path/to/myscript.R"

到控制台。

在上面的答案基础上，为了进行安全检查，您可以添加一个包装器，要求用户查找文件，如果（由于某种原因）sys.frame(1)失败（如果interactive() == TRUE可能会失败），或者源脚本不在主脚本期望的位置。

fun_path = tryCatch(expr = 
                      {file.path(dirname(sys.frame(1)$ofile), "foo.R")},
                    error = function(e){'foo.R'}
                    )
if(!file.exists(fun_path))
{
  msg = 'Please select "foo.R"'
  # ask user to find data
  if(Sys.info()[['sysname']] == 'Windows'){#choose.files is only available on Windows
    message('\n\n',msg,'\n\n')
    Sys.sleep(0.5)#goes too fast for the user to see the message on some computers
    fun_path  = choose.files(
      default = file.path(gsub('\\\\', '/', Sys.getenv('USERPROFILE')),#user
                          'Documents'),
      caption = msg
    )
  }else{
    message('\n\n',msg,'\n\n')
    Sys.sleep(0.5)#goes too fast for the user to see the message on some computers
    fun_path = file.choose(new=F)
  }
}
#source the function
source(file = fun_path, 
       encoding = 'UTF-8')

真是令人惊讶，在R中没有'$0'类型的结构！您可以通过调用一个在R中编写的bash脚本来实现：

write.table(c("readlink -e $0"), file="scriptpath.sh",col=F, row=F, quote=F)
thisscript <- system("sh scriptpath.sh", intern = TRUE)

然后只需将 scriptpath.sh 的名称拆分出来，用于 other.R。

splitstr <- rev(strsplit(thisscript, "\\/")[[1]])
otherscript <- paste0(paste(rev(splitstr[2:length(splitstr)]),collapse="/"),"/other.R")