将工作目录设置为R中脚本文件的父文件夹

2 回答

• 2

  我尝试了 dirname(parent.frame(2)$ofile) 和 dirname(sys.frame(2)$ofile) 方法，但两者都不适合我（我在R 3.4.1，使用RStudio和Windows 10） . 我试图在RStudio和R GUI中获取它 . 还尝试从命令行运行它 .

  用户rakensi（https://stackoverflow.com/users/1021892/rakensi）下面的这个方法非常适合我 . 积分归他所有 . 链接回答：Getting path of an R script .

  另一种方法（test_v2.R）适用于我使用Rscript . 积分转到用户steamer25（https://stackoverflow.com/users/93345/steamer25）和答案的链接（Rscript: Determine path of the executing script） .

  test.R 在Rstudio中使用source（test.R）运行它

  ## Run this from ~/Documents/project/code or directory of your choice
  script.dir <- getSrcDirectory(function(x) {x})
  print(script.dir)
  # gives you ~/Documents/project/code
  setwd(script.dir)
  

  test_v2.R 使用Rscript.exe运行此命令

  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))
      }
  }
  script.dir <- dirname(thisFile())
  setwd(script.dir)
  print(getwd())
  

  回复于 2024-05-04T09:12:09+08:00
• 1

  这会将目录更改为源文件位置 .

  this.dir <- dirname(parent.frame(2)$ofile)
  setwd(this.dir)
  

  回复于 2024-05-04T09:12:09+08:00