更改函数内的工作目录答案

【问题标题】：Changing working directory inside a function更改函数内的工作目录
【发布时间】：2016-10-13 17:09:16
【问题描述】：

我想将目录名称作为函数的形式参数传递。在函数内部，我想将我的工作目录更改为正式参数中提到的目录。该目录当前位于我的工作目录中。

注意：

specdata 是我当前 wd 中的目录

代码：

 x <-function(directory)
 {
 y<-file.path(getwd(),directory)
 setwd(y)
 }

 x(specdata)

这似乎不起作用，我不想输入 "specdata" 作为函数参数。它应该是 not be in double quotes。

【问题讨论】：

【解决方案1】：

我不知道您为什么要避免使用双引号，因为您没有解释上下文。但是如果这确实是你需要的，那么你可以使用非标准的评估来实现这一点。

x <-function(directory) { 
  directory <- as.character(substitute(directory))
  y <-file.path(getwd(),directory) 
  setwd(y) 
  }

as.character(substitute()) 的使用正是如此，例如，函数 library() 允许一个或没有引号（在库函数中执行此操作的实际行是 package <- as.character(substitute(package))。）

【讨论】：