blocks|key|718164|text|发布的setdiff答案很不错。我想我应该把我前段时间写的这个相关函数贴出来。它的有用性取决于读者:-)。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|718165|lstype<-function(type='closure'){+
++++inlist<-ls(.GlobalEnv)
++++if+(type=='function')+type+<-'closure'
++++typelist<-sapply(sapply(inlist,get),typeof)
++++return(names(typelist[typelist==type]))
}|code-block|syntax|javascript|718166|entityMap^0|3|7|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@$9|N|A|O|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|P|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|Q|8|@]|D|@]|E|$]]]|L|$]]

The posted <code>setdiff</code> answer is nice. I just thought I'd post this related function I wrote a while back. Its usefulness is up to the reader :-).

<pre><code>lstype&lt;-function(type='closure'){ 
 inlist&lt;-ls(.GlobalEnv)
 if (type=='function') type &lt;-'closure'
 typelist&lt;-sapply(sapply(inlist,get),typeof)
 return(names(typelist[typelist==type]))
}
</code></pre>

blocks|key|502304|text|这是我在某个地方学到的一个非常方便的函数，并做了一些调整。保存在目录中可能会更好。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|502305|list.objects+<-+function(env+=+.GlobalEnv)+
{
++++if(!is.environment(env)){
++++++++env+<-+deparse(substitute(env))
++++++++stop(sprintf('"%25s"+must+be+an+environment',+env))
++++}
++++obj.type+<-+function(x)+class(get(x,+envir+=+env))
++++foo+<-+sapply(ls(envir+=+env),+obj.type)
++++object.name+<-+names(foo)
++++names(foo)+<-+seq(length(foo))
++++dd+<-+data.frame(CLASS+=+foo,+OBJECT+=+object.name,+
+++++++++++++++++++++stringsAsFactors+=+FALSE)
++++dd[order(dd$CLASS),]
}

>+x+<-+1:5
>+d+<-+data.frame(x)
>+list.objects()
#++++++++CLASS+++++++OBJECT
#+1+data.frame++++++++++++d
#+2+++function+list.objects
#+3++++integer++++++++++++x+
>+list.objects(env+=+x)
#+Error+in+list.objects(env+=+x)+:+"x"+must+be+an+environment|code-block|syntax|javascript|502306|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Here's a pretty convenient function I picked up somewhere and adjusted a little. Might be nice to keep in the directory.

<pre><code>list.objects &lt;- function(env = .GlobalEnv) 
{
 if(!is.environment(env)){
 env &lt;- deparse(substitute(env))
 stop(sprintf('"%s" must be an environment', env))
 }
 obj.type &lt;- function(x) class(get(x, envir = env))
 foo &lt;- sapply(ls(envir = env), obj.type)
 object.name &lt;- names(foo)
 names(foo) &lt;- seq(length(foo))
 dd &lt;- data.frame(CLASS = foo, OBJECT = object.name, 
 stringsAsFactors = FALSE)
 dd[order(dd$CLASS),]
}

&gt; x &lt;- 1:5
&gt; d &lt;- data.frame(x)
&gt; list.objects()
# CLASS OBJECT
# 1 data.frame d
# 2 function list.objects
# 3 integer x 
&gt; list.objects(env = x)
# Error in list.objects(env = x) : "x" must be an environment
</code></pre>

blocks|key|718286|text|您可以使用以下命令清除所有变量。要小心，因为这样你就无法找回你的变量。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|718287|rm(list=ls(all=TRUE))|code-block|syntax|javascript|718288|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

You can use the following command to clear out ALL variables. Be careful because it you cannot get your variables back.

<pre><code>rm(list=ls(all=TRUE))
</code></pre>

blocks|key|718348|text|我写这篇文章是为了从当前环境中删除除函数之外的所有对象(使用的编程语言是带有IDE+R-Studio的R)：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|718349|++++remove_list=c()+++++++++++++++++++++++++++++#+create+a+vector

++++++for(i+in+1:NROW(ls())){+++++++++++++++++++#+repeat+over+all+objects+in+environment
++++++++if(class(get(ls()[i]))!="function"){++++#+if+object+is+*not*+a+function
+++++++++remove_list=c(remove_list,ls()[i])+++++#+..add+to+vector+remove_list
+++++++++}++++
++++++}

++++rm(list=remove_list)++++++++++++++++++++++++#+remove+all+objects+named+in+remove_list|code-block|syntax|javascript|718350|备注：|718351|rm(list=)中的参数"list“必须是字符向量。|718352|从ls()i返回当前环境中位置i的对象的名称，从get(ls()i)返回对象本身。因此，从class(get(ls()i))返回对象的类|718353|entityMap^0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@]|9|@]|A|$]]|$1|I|3|J|5|6|7|R|8|@]|9|@]|A|$]]|$1|K|3|L|5|6|7|S|8|@]|9|@]|A|$]]|$1|M|3|-4|5|6|7|T|8|@]|9|@]|A|$]]]|N|$]]

I wrote this to remove all objects apart from functions from the current environment (Programming language used is R with IDE R-Studio):

<pre><code> remove_list=c() # create a vector

 for(i in 1:NROW(ls())){ # repeat over all objects in environment
 if(class(get(ls()[i]))!="function"){ # if object is *not* a function
 remove_list=c(remove_list,ls()[i]) # ..add to vector remove_list
 } 
 }

 rm(list=remove_list) # remove all objects named in remove_list
</code></pre>

Notes-

The argument "list" in rm(list=) must be a character vector. 

The name of an object in position i of the current environment is returned from ls()[i] and the object itself from get(ls()[i]). Therefore the class of an object is returned from class(get(ls()[i]))

I have loaded in a R console different type of objects.
I can remove them all using

<pre><code>rm(list=ls())
</code></pre>

or remove only the functions (but not the variables) using

<pre><code>rm(list=lsf.str())
</code></pre>

My question is:
is there a way to remove all variables except the functions

remove all variables except functions

我在R控制台中加载了不同类型的对象。我可以使用以下命令将它们全部删除rm(list=ls())或者只删除函数(而不是变量)，使用rm(list=lsf.str())我的问题是:有没有办法删除除函数之外的所有变量

问删除除函数之外的所有变量
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问删除除函数之外的所有变量EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问删除除函数之外的所有变量
EN