删除对象期间,在全局环境中保留用户定义的函数

我强烈推荐一种不同的方法。不要部分删除对象,而是使用适当的范围。也就是说,不要在全局环境中定义不需要在全局环境中定义的对象,在函数中定义它们,或者 local 范围代替。

再往前走一步, functions.R 文件 也 不应该定义全局环境中的函数。相反,正如注释中建议的,它应该在专用环境中定义它们,您可以 attach ,如果方便的话。这实际上就是R包解决的问题。如果你觉得R包对你来说太重,我建议你用我的 {modules} 机制:它干净地实现了基于文件的代码模块。

如果按设计使用范围界定,则无需调用 rm 在临时变量上,因此不会出现问题。

如果你 真的? 想要一个干净的记录,重新启动r并重新执行脚本:这是一致地重置r会话状态的唯一方法;所有其他方法都是容易出错的黑客,因为它们只执行部分清理。

关于您所写内容的注释:

当测试时,尽管以点为起点,功能仍会被删除。

他们不是“他们只是” 看不见的 这就是前导点的作用。然而,这个建议也让我觉得是一个不好的实践:这是一个不必要的黑客。

你可以使用 ls.str 指定一个 mode 要查找的对象。使用此选项,可以从 rm 名单。

rm(list=setdiff(ls(),ls.str(mode="function")))
ls()
[1] "myFunction1" "myFunction2" "myFunction3"

但是,您最好在包中形式化您的函数,然后就不必担心用 RM .

容易的。不要使用全球环境。

myenv <- new.env()

with(myenv,
       {
         # Create 3 object variables.
         a <- 1
         b <- 2
         c <- 3
       }
       )
myenv$a
#[1] 1

# Create 3 functions.
myFunction1 <- function() {}
myFunction2 <- function() {}
myFunction3 <- function() {}

# Remove all from env.
# Keep the ones specified below.
rm(list = ls(envir = myenv)[! ls(envir = myenv) %in% c(
  "a",
  "c"
)
], envir = myenv
)

ls(envir = myenv)
#[1] "a" "c"