如何在函数内使用 ls() 搜索环境？

Question

我想找到一组函数并保存它们，因为我想将它们以 Rdata 文件发送到远程服务器，并且我不想在服务器上安装新的包。

尽管我使用下面的方法遇到错误，但欢迎更简单/更好的方法。

MWE：

这里有两个虚拟函数：

abcd.fun.1    <- function() return(1)
abcd.fun.2    <- function() return(2)

我可以识别虚拟函数：

ls()[grep('abcd', ls())]

但是当我将其包装在函数中时：

 find.test <- function(x) {
     return(ls()[grep(x, ls())])
 }
 find.test('abcd')

该函数返回character(0)

最终我想

 save(find.test('abcd'), file = test.Rdata)

Answer 1

1. 为什么不使用 ls 的 pattern= 参数？
2. 在函数内调用 ls 会列出该函数中存在的对象
   函数作用域，不是全局环境（这在 ?ls 中进行了解释）。

如果您想从函数中列出全局环境中的对象，请指定 envir=.GlobalEnv。

x <- 1:10
f <- function() ls()
g <- function() ls(envir=.GlobalEnv)
h <- function() ls(envir=.GlobalEnv, pattern="[fg]")
f()
# character(0)
g()
# [1] "f" "g" "h" "x"
h()
# [1] "f" "g"

Answer 2

您需要告诉您的函数列出其自身以外的环境中的对象，例如全局环境。 （同时，您还可以将正则表达式模式指定为 ls 的参数。）：

find.test <- function(x, envir=.GlobalEnv) {
  ls(pattern=x, envir=envir) 
}

有关 ls( 的更多信息，请参阅 ?ls ) 和 ?environment 用于指定环境的其他选项。