如何在函数内使用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. 为什么不使用pattern=参数ls？
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其他选项来指定环境.