函数定义求助

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

假设如下定义函数，希望列出所有非函数的对象

1. lsNoFunction<-
   
2. function ()
   
3. {
   
4.     setdiff(ls(envir = .GlobalEnv), as.character(lsf.str()[]))
   
5. }

复制代码

但

1. object1 <- 1:5
   
2. object2 <- list(a=3, b=5)
   
3. function1 <- function(x) {x^3 +1}
   
4. lsNoFunction()

复制代码

在执行以上语句后仍旧返回[1] "function1" "object1"   "object2"  ，请大家帮忙看看是什么原因？谢谢

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：function UNC TIO Fun CTI 求助 函数 定义

如果不写成函数的形式是好用的，可能是函数里调用.GlobalEnv时出问题的？期待高人。

疑问就在这里，不写成函数是对的，写在函数里就不对了

问题在网友BOLY和leeplusx的帮助下已解决，函数定义需要写成

1. lsNoFunction<-
   
2. function ()
   
3. {
   
4.     setdiff(ls(envir = .GlobalEnv), as.character(lsf.str(envir = .GlobalEnv)[]))
   
5. }

复制代码

学习了，谢谢。