如何获取R中当前运行的脚本名称？

1. 通过命令行参数提取（通用控制台场景） #

当用Rscript命令启动脚本时，可借助commandArgs()解析命令行参数获取脚本路径：

# 从命令行参数中筛选带--file=前缀的条目
script_arg <- commandArgs(trailingOnly = FALSE)[grep("--file=", commandArgs(trailingOnly = FALSE))]
# 去除前缀得到完整脚本路径
script_full_path <- sub("^--file=(.*)", "\\1", script_arg)
# 提取纯脚本名称（可选）
script_name <- basename(script_full_path)

你可以直接用script_full_path的目录部分设置工作目录：setwd(dirname(script_full_path))，完全不用单独依赖basename()做核心逻辑。

2. RStudio专属方案 #

如果在RStudio中操作，rstudioapi包能直接获取当前活跃脚本的路径：

if (requireNamespace("rstudioapi", quietly = TRUE)) {
  doc_context <- rstudioapi::getActiveDocumentContext()
  if (nchar(doc_context$path) > 0) {
    script_full_path <- doc_context$path
    script_name <- basename(script_full_path)
    # 直接设置工作目录
    setwd(dirname(script_full_path))
  }
}

注意：需确保脚本已经保存过，未保存的临时文件无法获取有效路径。

3. 环境变量传递法 #

运行脚本前手动设置环境变量，脚本内读取该变量：

# 终端执行
export TARGET_SCRIPT="example.R"
Rscript example.R

脚本内代码：

script_name <- Sys.getenv("TARGET_SCRIPT")
# 若需要完整路径，可结合当前目录拼接
script_full_path <- file.path(getwd(), script_name)

关于scriptName包返回NULL的说明 #

current_filename()函数依赖脚本通过Rscript或特定启动方式加载，直接在控制台用source()运行脚本时，函数无法捕获到脚本的文件路径，因此返回NULL。

内容的提问来源于stack exchange，提问作者Rakakniven