我想找到一组函数并保存它们,因为我想将它们发送到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)
最佳答案
pattern=
使用ls
参数? 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"
关于r - 如何在函数内使用ls()搜索环境?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/8142941/