R 全局函数清除工作区和转储存储

Question

我希望创建一个全局函数来清除我的工作空间并转储我的内存。我将我的函数称为“cleaner”并希望它执行以下代码：

remove(list = ls())
gc()

我尝试在全局环境中创建函数，但是当我运行它时，控制台只打印函数的文本。在我要获取的函数文件中：

cleaner <- function(){
    remove(list = ls())
    gc()
    #I tried adding return(invisible()) to see if that helped but no luck
}

cleaner()

即使我在希望它运行的脚本中创建函数（消除任何潜在的采购错误），存储转储似乎也可以工作，但它仍然没有清除工作区。

Answer 1

对此有两个想法：您的代码不会删除所有对象，也可以删除隐藏的对象

rm(list = ls(all.names = TRUE))

还有gctorture() 命令在（几乎）每次内存分配时都会引发垃圾收集（如手册页所述）。它旨在供 R 开发人员找出内存保护错误：

cleaner <- function(){
    # Turn it on
    gctorture(TRUE)

    # Clear workspace
    rm(list = ls(all.names = TRUE, envir=sys.frame(-1)),
       envir = sys.frame(-1))

    # Turn it off (important or it gets very slow)
    gctorture(FALSE)
}

如果在函数中使用这个过程，会出现以下问题：由于函数有自己的栈帧，所以只有这个栈帧中的对象会被删除。它们仍然存在于外面。因此，必须与sys.frame(-1) 单独指定只应考虑更高级别的堆栈帧。然后仅在调用 cleaner() 的函数内和退出函数时在 cleaner 本身中删除变量。

但这也意味着该函数只能从顶层调用才能正常运行（您可以使用sys.frames() 列出所有更高级别的堆栈帧来构建一些东西，如果确实需要也可以避免这个问题）