我想找到一组函数并保存它们,因为我想将它们发送到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中解释).
>在函数内调用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"