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

发布时间：2020-12-13 19:26:25 所属栏目：Linux 来源：网络整理

导读：我想找到一组函数并保存它们,因为我想将它们发送到Rdata文件中的远程服务器,我不想在服务器上安装新的软件包. 虽然我使用下面的方法收到错误,但欢迎使用更简单/更好的方法. MWE：这是两个虚函数： abcd.fun.1 - function() return(1)abcd.fun.2 - function(

我想找到一组函数并保存它们,因为我想将它们发送到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')

该函数返回字符(0)

最终我想

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

解决方法

>为什么不使用ls的pattern =参数？
>在函数内调用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"

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!