删除所有变量的功能

Question

从remove all variables except functions，我得到了删除所有变量而不删除函数的命令。我不想一直输入它，所以我试着把它变成〜/ .Rprofile中定义的函数。我是R的新手，但我浏览了环境框架方案，对它有一种不稳定的理解。以下尝试似乎没有擦除主环境中定义的时间序列对象（当我第一次启动R时命令行提示符）：

# In ~/.Rprofile
clVar <- function()
{
    rm(
        list=setdiff( ls(all.names=TRUE), lsf.str(all.names=TRUE)),
        envir=parent.frame()
    )
}

以下代码显示它不起作用：

( x<-ts( 1:100 ,frequency=12 ) )
clVar()
ls()

感谢您在修复环境框架方面提供的任何帮助。

Answer 1

您需要将parent.frame()环境传递给ls，而不仅仅是rm。否则ls无法找到要删除的变量。

clVar <- function()
{
    env <- parent.frame()
    rm(
        list = setdiff( ls(all.names=TRUE, env = env), lsf.str(all.names=TRUE, env = env)),
        envir = env
    )
}