如何在R中获取执行脚本的目录及读取指定子目录文件

没问题，我来帮你搞定这个需求！下面是一个实用的R函数实现，完全贴合你的场景：

核心思路拆解 #

• 第一步：获取当前脚本的绝对路径，这样不管脚本放在哪里，都能准确找到对应的output子目录
• 第二步：用file.path()拼接出output子目录和目标文件的完整路径（这个函数会自动适配Windows/Linux的路径分隔符，比手动拼斜杠靠谱）
• 第三步：检查文件是否存在，存在则用read.csv()读取，不存在则给出清晰提示

完整函数代码 #

read_from_output <- function(filename) {
  # 获取当前脚本的所在目录
  script_dir <- dirname(sys.frame(1)$ofile)
  
  # 拼接output子目录和目标文件的完整路径
  full_path <- file.path(script_dir, "output", filename)
  
  # 检查文件是否存在
  if (file.exists(full_path)) {
    message(paste("找到文件，正在读取：", full_path))
    # 读取CSV文件
    data <- read.csv(full_path)
    return(data)
  } else {
    stop(paste("错误：文件不存在于路径", full_path))
  }
}

补充说明 #

• 如果你的脚本是在RStudio中通过Run Script按钮运行，sys.frame(1)$ofile可能无法正确获取路径，这时可以换成下面的方式获取脚本目录：

  script_dir <- dirname(rstudioapi::getActiveDocumentContext()$path)
  

  不过这个方法需要提前安装并加载rstudioapi包：install.packages("rstudioapi")、library(rstudioapi)
• file.path()是跨平台的最佳选择，它会根据操作系统自动使用\或/作为路径分隔符，避免手动拼接出现的兼容性问题
• 函数里加入了message()和stop()，方便你清楚知道运行状态和错误原因

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